Use open_in_bin instead of open_in for Windows compatibility

mirage · Jan 20, 2021 · fe2b6cb · fe2b6cb
1 parent 48ab696
commit fe2b6cb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/unix/capnp_rpc_unix.ml b/unix/capnp_rpc_unix.ml
@@ -30,7 +30,7 @@ let parse_uri s =
 module Cap_file = struct
   let load_uri path =
     try
-      let ch = open_in path in
+      let ch = open_in_bin path in
       let len = in_channel_length ch in
       let data = really_input_string ch len in
       close_in ch;

diff --git a/unix/file_store.ml b/unix/file_store.ml
@@ -35,7 +35,7 @@ let remove t ~digest =
 let load t ~digest =
   let path = path_of_digest t digest in
   if Sys.file_exists path then (
-    let ch = open_in path in
+    let ch = open_in_bin path in
     let len = in_channel_length ch in
     let segment = Bytes.create len in
     really_input ch segment 0 len;