cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Propellor/CmdLine.hs
View File

@ -59,7 +59,9 @@ defaultMain getprops = do
go _ (Continue cmdline) = go False cmdline go _ (Continue cmdline) = go False cmdline
go _ (Set host field) = setPrivData host field go _ (Set host field) = setPrivData host field
go _ (AddKey keyid) = addKey keyid 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 _ (ChainDocker host) = Docker.chain host
go True cmdline@(Spin _) = buildFirst cmdline $ go False cmdline go True cmdline@(Spin _) = buildFirst cmdline $ go False cmdline
go True cmdline = updateFirst cmdline $ go False cmdline go True cmdline = updateFirst cmdline $ go False cmdline