diff options
Diffstat (limited to 'compiler/utils/Binary.hs')
| -rw-r--r-- | compiler/utils/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index b10ab1d5f2..a1ccee3ae7 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -207,7 +207,7 @@ readBinMem filename = do h <- openBinaryFile filename ReadMode filesize' <- hFileSize h let filesize = fromIntegral filesize' - arr <- mallocForeignPtrBytes (filesize*2) + arr <- mallocForeignPtrBytes filesize count <- withForeignPtr arr $ \p -> hGetBuf h p filesize when (count /= filesize) $ error ("Binary.readBinMem: only read " ++ show count ++ " bytes") |