diff options
| -rw-r--r-- | Propellor/CmdLine.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 69e68351..89fe9e36 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -81,7 +81,7 @@ spin host = do -- Display remaining output. void $ tryIO $ forever $ - putStrLn =<< hGetLine fromh + showremote =<< hGetLine fromh hClose fromh where @@ -104,9 +104,10 @@ spin host = do l <- hGetLine h case readish =<< fromMarked statusMarker l of Nothing -> do - putStrLn l + showremote l getstatus h Just status -> return status + showremote s = putStrLn $ host ++ ": " ++ s data BootStrapStatus = HaveKeyRing | NeedKeyRing deriving (Read, Show, Eq) |