From 181f89ac70e91a7277b1616b2c4054b595b59b94 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Thu, 3 Jul 2025 00:22:26 +0200 Subject: style(jid): move to_string function up --- lib/jid.ml | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'lib') diff --git a/lib/jid.ml b/lib/jid.ml index 3564c5d..2f071b9 100644 --- a/lib/jid.ml +++ b/lib/jid.ml @@ -69,6 +69,11 @@ let of_string (jid : string) : t = resourcepart = map (fun i -> sub jid (i + 1) (length jid - i - 1)) domain_end; } +let to_string ({ localpart; domainpart; resourcepart } : t) = + let local = Option.fold ~none:"" ~some:(fun l -> l ^ "@") localpart + and resource = Option.fold ~none:"" ~some:(fun r -> "/" ^ r) resourcepart + in local ^ domainpart ^ resource + let show ({ localpart; domainpart; resourcepart } : t) = let show_opt = Option.fold ~none:"None" ~some:(Format.sprintf {|Some "%s"|}) in Printf.sprintf @@ -184,9 +189,3 @@ let%expect_test {|A domainpart followed by a resourcepart that contains an "at" { localpart = None; domainpart = "a.example.com"; resourcepart = Some "b@example.net" } |}] - - -let to_string ({ localpart; domainpart; resourcepart } : t) = - let local = Option.fold ~none:"" ~some:(fun l -> l ^ "@") localpart - and resource = Option.fold ~none:"" ~some:(fun r -> "/" ^ r) resourcepart - in local ^ domainpart ^ resource -- cgit v1.2.3