From 4c6e689b1573f1d097584fe76d2d88430547d06f Mon Sep 17 00:00:00 2001 From: ArthurW Date: Wed, 22 Jan 2025 16:12:09 +0100 Subject: [PATCH] Fix windows --- src/index-format/granular_marshal.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/index-format/granular_marshal.ml b/src/index-format/granular_marshal.ml index 247e08925..67dd499fb 100644 --- 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