From 6157a418a779bbb8c862332e6cae3f03d45a7665 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Mon, 30 Jun 2025 20:04:44 +0200
Subject: feat(jid): add to_string function

---
 lib/jid.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib')

diff --git a/lib/jid.ml b/lib/jid.ml
index 33c9a9d..f38b192 100644
--- a/lib/jid.ml
+++ b/lib/jid.ml
@@ -42,3 +42,8 @@ let of_string (jid : string) : t =
        resourcepart = Option.map (fun i -> String.sub jid (i+1) (len-i-1)) r;
        domainpart = String.sub jid lv (rv-lv);
      }
+
+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