haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-26 10:51:56 +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" writeIORef status "Waiting for signal to start compressing"
takeMVar baton takeMVar baton
writeIORef status "Received signal, traversing directories" 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 ()) return (status, void $ tryPutMVar baton ())
where where
finallyE f g = mask $ \restore -> do finallyE f g = mask $ \restore -> do