add readFileStrictAnyEncoding

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

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
)