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

make Data.Binary.decodeFile stricter. It seems like this fixes the file locking problem on Linux

Browse Source
This commit is contained in:
krasimir
2009-06-23 11:56:22 +00:00
parent 6c8ad4ca16
commit 3a0e978026
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Binary.hs
View File

@@ -272,9 +272,9 @@ encodeFile f v = L.writeFile f (encode v)
decodeFile :: Binary a => FilePath -> IO a decodeFile :: Binary a => FilePath -> IO a
decodeFile f = do decodeFile f = do
s <- L.readFile f s <- L.readFile f
return $ runGet (do v <- get return $! runGet (do v <- get
m <- isEmpty m <- isEmpty
m `seq` return v) s m `seq` return v) s
-- needs bytestring 0.9.1.x to work -- needs bytestring 0.9.1.x to work