diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-07 21:27:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-07 21:27:43 -0400 |
| commit | fdf988be6d2b3bb931a9eb3dcf3fbb83b1fb8c17 (patch) | |
| tree | 9393058044ee9eb29850eedc241827c5ba058037 | |
| parent | faa4935047b7083e1970d13f51fbaa6fe7d0fe3d (diff) | |
indent
| -rw-r--r-- | Utility/Misc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Misc.hs b/Utility/Misc.hs index b3bf22612..4c4aa4c93 100644 --- a/Utility/Misc.hs +++ b/Utility/Misc.hs @@ -13,7 +13,7 @@ import Control.Monad {- A version of hgetContents that is not lazy. Ensures file is - all read before it gets closed. -} hGetContentsStrict :: Handle -> IO String -hGetContentsStrict = hGetContents >=> \s -> length s `seq` return s +hGetContentsStrict = hGetContents >=> \s -> length s `seq` return s {- A version of readFile that is not lazy. -} readFileStrict :: FilePath -> IO String |