diff --git a/lib/picos_io_cohttp/picos_io_cohttp.ml b/lib/picos_io_cohttp/picos_io_cohttp.ml index 1122fe78..3d73ee88 100644 --- 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