diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 14:26:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 14:26:01 -0400 |
| commit | 69c39a087b013a271b2a837940385b6c1f76ba72 (patch) | |
| tree | ad69c41455fe4e34cc956b082c14184cb96553e1 /Propellor/CmdLine.hs | |
| parent | 3690257a9c324b2eed138903a2e940d53fc58d7d (diff) | |
propellor spin
Diffstat (limited to 'Propellor/CmdLine.hs')
| -rw-r--r-- | Propellor/CmdLine.hs | 5 |
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 |