[haddock @ 2003-07-28 16:40:45 by panne]

Make it compile with GHC >= 6.01

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)