summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
b996479)
Fix another occurence of openFileEx in stage2
readBinMem :: FilePath -> IO BinHandle
readBinMem filename = 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)
filesize' <- hFileSize h
let filesize = fromIntegral filesize'
arr <- newArray_ (0,filesize-1)