diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Data/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Binary.hs b/src/Data/Binary.hs index a0a0bc702..86353e143 100644 --- a/src/Data/Binary.hs +++ b/src/Data/Binary.hs @@ -271,7 +271,7 @@ encodeFile f v = L.writeFile f (encode v) -- or otherwise finalise the resource. -- decodeFile :: Binary a => FilePath -> IO a -decodeFile f = bracket (openFile f ReadMode) hClose $ \h -> do +decodeFile f = bracket (openBinaryFile f ReadMode) hClose $ \h -> do s <- L.hGetContents h evaluate $ runGet (do v <- get m <- isEmpty |