diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-23 11:56:22 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-23 11:56:22 +0000 |
| commit | 9e3131f169d65034c67c19bf8549c099a3bbdddd (patch) | |
| tree | 49284fe56d378c91797123f5acdfc80b9f9ddbe9 | |
| parent | 8e72ff3a1cfba60de2d5f2a9549d715075d0b684 (diff) | |
make Data.Binary.decodeFile stricter. It seems like this fixes the file locking problem on Linux
| -rw-r--r-- | src/Data/Binary.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Data/Binary.hs b/src/Data/Binary.hs index 7398e6b84..310e73956 100644 --- a/src/Data/Binary.hs +++ b/src/Data/Binary.hs @@ -272,9 +272,9 @@ encodeFile f v = L.writeFile f (encode v) decodeFile :: Binary a => FilePath -> IO a decodeFile f = do s <- L.readFile f - return $ runGet (do v <- get - m <- isEmpty - m `seq` return v) s + return $! runGet (do v <- get + m <- isEmpty + m `seq` return v) s -- needs bytestring 0.9.1.x to work |