add newline in case previous stdout lacked one

should probably use a Marker here..
This commit is contained in:
Joey Hess 2014-04-01 14:47:30 -04:00
parent d6b94c1d03
commit a04ad13b8e
Failed to extract signature
1 changed files with 3 additions and 1 deletions

View File

@ -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