diff options
-rw-r--r-- | lib/jid.ml | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -29,8 +29,9 @@ let string_of_uchars (u : uchars) = List.iter (Buffer.add_utf_8_uchar buf) u; Buffer.to_bytes buf |> String.of_bytes -let of_string (jid : uchars) : t = +let of_string (s : string) : t = let open List in + let jid = uchars_of_string s in let dend, resourcepart = find_mapi (fun i c -> if c = Uchar.of_char '/' |