add readFileStrictAnyEncoding
This commit is contained in:
parent
beaa7cb757
commit
94251de91e
3 changed files with 12 additions and 6 deletions
|
@ -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
|
||||
)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue