haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-22 23:57:53 +01: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

11
Data/Hackage.hs
View File

@ -258,11 +258,12 @@ 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
case msrc of handle (\(_ :: Tar.FormatError) -> return (Nothing,Nothing,Nothing)) $
Nothing -> return mempty case msrc of
Just src -> do Nothing -> return mempty
bss <- lazyConsume $ src $= ungzip Just src -> do
tarSource (Tar.read $ fromChunks bss) $$ foldlC go mempty bss <- lazyConsume $ src $= ungzip
tarSource (Tar.read $ fromChunks bss) $$ foldlC go mempty
where where
go trip@(mreadme, mchangelog, mlicense) entry = go trip@(mreadme, mchangelog, mlicense) entry =
case Tar.entryContent entry of case Tar.entryContent entry of