aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/jid.ml8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/jid.ml b/lib/jid.ml
index f51114d..6bbdd93 100644
--- a/lib/jid.ml
+++ b/lib/jid.ml
@@ -63,14 +63,16 @@ let show ({ localpart; domainpart; resourcepart } : t) =
let%expect_test {|A "bare JID"|} =
"juliet@example.com" |> of_string |> show |> print_string;
[%expect {|
- { localpart = (Some "juliet"); domainpart = "example.com";
+ { localpart = Some "juliet";
+ domainpart = "example.com";
resourcepart = None } |}]
let%expect_test {|A "full JID"|} =
"juliet@example.com/foo" |> of_string |> show |> print_string;
[%expect {|
- { localpart = (Some "juliet"); domainpart = "example.com";
- resourcepart = (Some "foo") } |}]
+ { localpart = Some "juliet";
+ domainpart = "example.com";
+ resourcepart = Some "foo" } |}]
let to_string ({ localpart; domainpart; resourcepart } : t) =
let local = Option.fold ~none:"" ~some:(fun l -> l ^ "@") localpart