mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

indent

Browse source
This commit is contained in:
Joey Hess 2011-11-07 21:27:43 -04:00
parent faa4935047
commit fdf988be6d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Misc.hs
View file

@ -13,7 +13,7 @@ import Control.Monad
{- A version of hgetContents that is not lazy. Ensures file is {- A version of hgetContents that is not lazy. Ensures file is
- all read before it gets closed. -} - all read before it gets closed. -}
hGetContentsStrict :: Handle -> IO String 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. -} {- A version of readFile that is not lazy. -}
readFileStrict :: FilePath -> IO String readFileStrict :: FilePath -> IO String