haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-04-11 23:39:04 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Handle Tar exceptions when grabbing extra files

Browse Source 
@snoyberg
This commit is contained in:
Chris Done 2014-10-28 16:40:43 +01:00
parent e1dcab25e7
commit d77830555f
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Data/Hackage.hs
View File

@ -258,6 +258,7 @@ grabExtraFiles :: ( MonadActive m
-> m (Maybe Html, Maybe Html, Maybe Html) -- ^ README, changelog, license -> m (Maybe Html, Maybe Html, Maybe Html) -- ^ README, changelog, license
grabExtraFiles name version lfiles = runResourceT $ do grabExtraFiles name version lfiles = runResourceT $ do
msrc <- sourceHackageSdist name version msrc <- sourceHackageSdist name version
handle (\(_ :: Tar.FormatError) -> return (Nothing,Nothing,Nothing)) $
case msrc of case msrc of
Nothing -> return mempty Nothing -> return mempty
Just src -> do Just src -> do