From 2e2f475c5c631b61d061e7a308826214770fef47 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Tue, 1 Jul 2025 21:32:20 +0200
Subject: fix(jid): uchars_of_string starts parsing string to 0 now...

---
 lib/jid.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/jid.ml')

diff --git a/lib/jid.ml b/lib/jid.ml
index f6c691a..ab2e0e5 100644
--- a/lib/jid.ml
+++ b/lib/jid.ml
@@ -22,7 +22,7 @@ let uchars_of_string s : uchars =
         let k = utf_decode_length c in
         let u = utf_decode_uchar c in
         loop (u :: acc) (i + k)
-  in loop [] (String.length s)
+  in loop [] 0
 
 let string_of_uchars (u : uchars) =
   let buf = Buffer.create (4 * List.length u) in
-- 
cgit v1.2.3