summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/CmdLine.hs2
-rw-r--r--src/Propellor/Message.hs1
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
87 -27333 -28145 -27292 -28104 -27251 -28065 -27211 -28025 -27172 -27986 -27132 -27948 -27093 -27910 -2