seems to kinda work, the userspace errors missing Html_types module

2024-03-24 22:50:57 -05:00
parent f46dc86c6a
commit 3c32f068fb
7 changed files with 46 additions and 40 deletions
--- a/cors_proxy.ml
+++ b/cors_proxy.ml
@ -37,7 +37,9 @@ let proxy_handler reqd : unit =
  | Request.{ meth; headers; target; _ } ->
      Lwt.async (fun () ->
          let filename = Fmt.str "./%s" target in
-          if Sys.file_exists filename && Sys.is_regular_file filename
+          if
+            Sys.file_exists
+              filename (* && Sys.is_regular_file filename *)
          then (
            let file =
              Lwt_io.open_file ~flags:[ O_RDONLY ] ~mode:Lwt_io.input