diff options
| -rw-r--r-- | Propellor/CmdLine.hs | 4 |
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 |