From 46cf4a4a65fb62dd8586a678fb5b78c3c8961deb Mon Sep 17 00:00:00 2001
From: Jonah Beckford <9566106-jonahbeckford@users.noreply.gitlab.com>
Date: Fri, 27 Sep 2024 12:16:08 -0700
Subject: [PATCH] Use binary mode to open and get size of /reference files

Fixes https://github.com/Octachron/codept/issues/39
---
 tests/integrated.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/integrated.ml b/tests/integrated.ml
index cfb02a5..30befcd 100644
--- a/tests/integrated.ml
+++ b/tests/integrated.ml
@@ -155,7 +155,7 @@ let refname name =
 
 let reference name =
   if Sys.file_exists name then
-    let inc = open_in name in
+    let inc = open_in_bin name in
     really_input_string inc (in_channel_length inc)
   else
     ""