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

simplification: decodeFile doesn't have to check that the file is empty anymore

Browse Source
This commit is contained in:
krasimir
2009-06-24 12:21:09 +00:00
parent f20dd0ba4a
commit d965cf4755
1 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Binary.hs
View File

@@ -264,18 +264,10 @@ encodeFile f v = L.writeFile f (encode v)
-- --
-- > return . decode . decompress =<< B.readFile f -- > return . decode . decompress =<< B.readFile f
-- --
-- After contructing the data from the input file, 'decodeFile' checks
-- if the file is empty, and in doing so will force the associated file
-- handle closed, if it is indeed empty. If the file is not empty,
-- it is up to the decoding instance to consume the rest of the data,
-- or otherwise finalise the resource.
--
decodeFile :: Binary a => FilePath -> IO a decodeFile :: Binary a => FilePath -> IO a
decodeFile f = bracket (openBinaryFile 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 get s
m <- isEmpty
m `seq` return v) s
-- needs bytestring 0.9.1.x to work -- needs bytestring 0.9.1.x to work