summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 12:41:15 -0400
committerJoey Hess2015-10-28 12:41:15 -0400
commit68dbfe1b08c9cf1d976ac84ea53817c54fcd3479 (patch)
tree4ac391f08d91b105caa475608fcff55f2c27b441 /src/Propellor
parentf79fe8c0b16638c22a1094b5b2d7e4b62810d839 (diff)
need withConcurrentOutput to flush any buffered concurrent output
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