summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 13:21:07 -0400
committerJoey Hess2015-10-28 13:21:07 -0400
commit0a59e7e9914f7dbd5e7f8fc4bee892a220fe725e (patch)
tree17a68e2ad7a9f1c34d4fabade9044c75af63c3cd
parent6fcefbca7d55d8d7944ad78f622c9255edc33e00 (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index cbd5a00d..b49447cc 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -132,6 +132,8 @@ withConcurrentOutput a = a `finally` drain
hPutStrLn stderr "DRAIN"
hFlush stderr
lockOutput (return ())
+ hPutStrLn stderr "DRAIN DONE"
+ hFlush stderr
-- | Displays a string to stdout, and flush output so it's displayed.
--