From 69c39a087b013a271b2a837940385b6c1f76ba72 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 14:26:01 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3