From 8719ec68887f7e0d56f7c0cd94ac5a4e0efef293 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 15:12:23 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index be5fb8d3..5584d7a9 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -87,7 +87,9 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar then do hPutStrLn stderr "WAIT PROCESS" hFlush stderr - void $ P.waitForProcess h + (void $ P.waitForProcess h) + `catchIO` + (\e -> hPutStrLn stderr (show ("WAIT PROCESS failed", e))) hPutStrLn stderr "WAIT PROCESS done" hFlush stderr havelock -- cgit v1.2.3