diff options
| -rw-r--r-- | src/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Binary.hs b/src/Binary.hs index 6ac9db1c..07180a8a 100644 --- a/src/Binary.hs +++ b/src/Binary.hs @@ -244,7 +244,7 @@ writeBinMem (BinMem _ ix_r _ arr_r0) fn = do readBinMem :: FilePath -> IO BinHandle readBinMem filename = do - h <- openFileEx filename (BinaryMode ReadMode) + h <- openBinaryFile filename ReadMode filesize' <- hFileSize h let filesize = fromIntegral filesize' arr <- newArray_ (0,filesize-1) |