need withConcurrentOutput to flush any buffered concurrent output

2 files changed, 2 insertions, 1 deletions

diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 9f798166..4bca3986 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -89,7 +89,7 @@ processCmdLine = go =<< getArgs
 
 -- | Runs propellor on hosts, as controlled by command-line options.
 defaultMain :: [Host] -> IO ()
-defaultMain hostlist = do
+defaultMain hostlist = withConcurrentOutput $ do
 	Shim.cleanEnv
 	checkDebugMode
 	cmdline <- processCmdLine
diff --git a/src/Propellor/Message.hs b/src/Propellor/Message.hs
index 6d541b9a..7439c362 100644
--- a/src/Propellor/Message.hs
+++ b/src/Propellor/Message.hs
@@ -16,6 +16,7 @@ module Propellor.Message (
 	processChainOutput,
 	messagesDone,
 	createProcessConcurrent,
+	withConcurrentOutput,
 ) where
 
 import System.Console.ANSI