summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 14:28:24 -0400
committerJoey Hess2014-03-31 14:28:24 -0400
commit48b3c546b75ee27638562e3031e8c42677d506e2 (patch)
treea2c7be939312cd023640994799411c81310b6b7f
parent3f6cb342c6cf92fcf4d76b11edb52e526968419a (diff)
propellor spin
-rw-r--r--Propellor/CmdLine.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index 9e477d99..ff90b07c 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -74,7 +74,8 @@ spin host = do
putStr $ "Sending " ++ keyring ++ " to " ++ host ++ "..."
hFlush stdout
s <- toB64 <$> readFile keyring
- putStrLn $ toMarked keyringMarker s
+ putStrLn $ show $ toMarked keyringMarker s
+ hFlush stdout
hPutStrLn toh $ toMarked keyringMarker s
hFlush toh
putStrLn "done"