Minor tweak to Spin_std.Sys read/write

mbarbin · Nov 24, 2021 · 998f08d · 998f08d
1 parent d96fc28
commit 998f08d
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/lib/spin_std/sys.ml b/lib/spin_std/sys.ml
@@ -93,11 +93,9 @@ let write_file file content =
     ~finally:(fun () -> close_out oc)
 
 let read_file file =
-  let ic = open_in file in
+  let ic = open_in_bin file in
   Fun.protect
     (fun () ->
       let length = in_channel_length ic in
-      let buffer = Bytes.create length in
-      really_input ic buffer 0 length;
-      Bytes.to_string buffer)
+      really_input_string ic length)
     ~finally:(fun () -> close_in ic)