From 3690257a9c324b2eed138903a2e940d53fc58d7d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 14:24:15 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Propellor') 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) -- cgit v1.2.3