diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-24 12:07:38 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-24 12:07:38 +0000 |
| commit | f81a309eb1a96e6161c6bef59e397cc95aca6a7b (patch) | |
| tree | 8b20724fb6746d3f13d2792e0cb18635680c9947 | |
| parent | cf4efe0acc86f7e03327de6115355506bd8f18ba (diff) | |
bugfix: Use openBinaryFile in Data.Binary.decodeFile. It makes difference only on Windows
| -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 |