summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 14:26:01 -0400
committerJoey Hess2014-03-31 14:26:01 -0400
commit69c39a087b013a271b2a837940385b6c1f76ba72 (patch)
treead69c41455fe4e34cc956b082c14184cb96553e1
parent3690257a9c324b2eed138903a2e940d53fc58d7d (diff)
propellor spin
-rw-r--r--Propellor/CmdLine.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index 89fe9e36..3654600a 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -71,9 +71,12 @@ spin host = do
status <- getstatus fromh `catchIO` error "protocol error"
case status of
NeedKeyRing -> do
- putStrLn $ "Sending " ++ keyring ++ " to " ++ host
+ putStr $ "Sending " ++ keyring ++ " to " ++ host ++ "..."
+ hFlush stdout
s <- toB64 <$> readFile keyring
hPutStrLn toh $ toMarked keyringMarker s
+ hFlush toh
+ putStrLn "done"
HaveKeyRing -> noop
hPutStrLn toh $ toMarked privDataMarker privdata
hFlush toh