Handle Tar exceptions when grabbing extra files

@snoyberg
2026-09-07 13:23:50 +02:00 · 2014-10-28 16:40:43 +01:00 · 2014-10-28 16:40:43 +01:00 · d77830555f
commit d77830555f
parent e1dcab25e7
1 changed files with 6 additions and 5 deletions
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@ -258,6 +258,7 @@ grabExtraFiles :: ( MonadActive m
               -> m (Maybe Html, Maybe Html, Maybe Html) -- ^ README, changelog, license
 grabExtraFiles name version lfiles = runResourceT $ do
    msrc <- sourceHackageSdist name version
+    handle (\(_ :: Tar.FormatError) -> return (Nothing,Nothing,Nothing)) $
        case msrc of
            Nothing -> return mempty
            Just src -> do