Commit 9d5c1a04 authored by stolz's avatar stolz
Browse files

[project @ 2003-06-24 09:32:34 by stolz]

Fix another occurence of openFileEx in stage2
parent b996479a
......@@ -251,7 +251,7 @@ writeBinMem (BinMem _ ix_r sz_r arr_r) 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment