haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Be a bit more resilient to errors when compressing

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-18 18:50:48 +02:00
parent 894f428a5b
commit 8e610e35ae
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/Haddock.hs
View File

@ -98,7 +98,8 @@ createCompressor dirs = do
writeIORef status "Waiting for signal to start compressing"
takeMVar baton
writeIORef status "Received signal, traversing directories"
runResourceT $ goDir status (dirRawRoot dirs)
let rawRoot = dirRawRoot dirs
whenM (isDirectory rawRoot) $ runResourceT $ goDir status rawRoot
return (status, void $ tryPutMVar baton ())
where
finallyE f g = mask $ \restore -> do