Work around Uri not being thread safe

polytypic · polytypic · commit c765ccc1ad63 · 2024-09-10T21:08:48.000+03:00
See [issue in Uri](mirage/ocaml-uri#178).
diff --git a/lib/picos_io_cohttp/picos_io_cohttp.ml b/lib/picos_io_cohttp/picos_io_cohttp.ml
@@ -312,3 +312,8 @@ module Server = struct
     in
     accept ()
 end
+
+let () =
+  (* Try to work around Uri not being thread safe *)
+  Uri.of_string "http://[::::1]:8080" |> ignore;
+  Uri.of_string "http://localhost:8080/" |> ignore
