Work around Uri not being thread safe

See [issue in Uri](mirage/ocaml-uri#178).
ocaml-multicore · Sep 10, 2024 · c765ccc · c765ccc
1 parent d2aa36c
commit c765ccc
Showing 1 changed file with 5 additions and 0 deletions.
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