summaryrefslogtreecommitdiff
path: root/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-01 14:47:30 -0400
committerJoey Hess2014-04-01 14:47:30 -0400
commita04ad13b8e954517231986733db8c1262f425903 (patch)
tree173cded52f1a6489d3716e5537479cfc9849b8d6 /Propellor/CmdLine.hs
parentd6b94c1d03b7e185e751e8d4f4fda8dc004e98c5 (diff)
add newline in case previous stdout lacked one
should probably use a Marker here..
Diffstat (limited to 'Propellor/CmdLine.hs')
-rw-r--r--Propellor/CmdLine.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index 73254165..626828aa 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -59,7 +59,9 @@ defaultMain getprops = do
go _ (Continue cmdline) = go False cmdline
go _ (Set host field) = setPrivData host field
go _ (AddKey keyid) = addKey keyid
- go _ (Chain host) = withprops host $ print <=< ensureProperties'
+ go _ (Chain host) = withprops host $ \ps -> do
+ r <- ensureProperties' ps
+ putStrLn $ "\n" ++ show r
go _ (ChainDocker host) = Docker.chain host
go True cmdline@(Spin _) = buildFirst cmdline $ go False cmdline
go True cmdline = updateFirst cmdline $ go False cmdline