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

add readFileStrictAnyEncoding

Browse source
This commit is contained in:
Joey Hess 2013-11-20 13:41:13 -04:00
parent beaa7cb757
commit 94251de91e
3 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/ImportFeed.hs
View file

@ -106,7 +106,7 @@ downloadFeed url = do
liftIO $ withTmpFile "feed" $ \f h -> do
fileEncoding h
ifM (Url.download url [] [] f ua)
( liftIO $ parseFeedString <$> hGetContentsStrict h
( parseFeedString <$> hGetContentsStrict h
, return Nothing
)