From 6ea315962daa8775f2ce8ae561c0cf37688d0440 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 28 Jul 2003 16:40:45 +0000
Subject: [haddock @ 2003-07-28 16:40:45 by panne] Make it compile with GHC >=
 6.01

---
 src/Binary.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3