summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
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/CmdLine.hs
parentf79fe8c0b16638c22a1094b5b2d7e4b62810d839 (diff)
need withConcurrentOutput to flush any buffered concurrent output
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs2
1 files changed, 1 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