Fix windows

ocaml · Jan 22, 2025 · 4c6e689 · 4c6e689
1 parent e6b4bd3
commit 4c6e689
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/index-format/granular_marshal.ml b/src/index-format/granular_marshal.ml
@@ -68,7 +68,7 @@ let () =
       | Some (_, fd) -> close_in fd)
 
 let force_open_store store =
-  let fd = open_in store.filename in
+  let fd = open_in_bin store.filename in
   last_open_store := Some (store, fd);
   fd