GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfix: Use openBinaryFile in Data.Binary.decodeFile. It makes difference only on Windows

Browse Source
This commit is contained in:
krasimir
2009-06-24 12:07:38 +00:00
parent cf4efe0acc
commit f81a309eb1
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Binary.hs
View File

@@ -271,7 +271,7 @@ encodeFile f v = L.writeFile f (encode v)
-- or otherwise finalise the resource. -- or otherwise finalise the resource.
-- --
decodeFile :: Binary a => FilePath -> IO a 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 s <- L.hGetContents h
evaluate $ runGet (do v <- get evaluate $ runGet (do v <- get
m <- isEmpty m <- isEmpty