diff options
| -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 |