From 8e610e35ae4a21fc49554ef86f32b16c100a825b Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 18 Nov 2014 18:50:48 +0200 Subject: [PATCH] Be a bit more resilient to errors when compressing --- Handler/Haddock.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Handler/Haddock.hs b/Handler/Haddock.hs index a9ace97..52f3128 100644 --- a/Handler/Haddock.hs +++ b/Handler/Haddock.hs @@ -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