diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 14:28:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 14:28:24 -0400 |
| commit | 48b3c546b75ee27638562e3031e8c42677d506e2 (patch) | |
| tree | a2c7be939312cd023640994799411c81310b6b7f | |
| parent | 3f6cb342c6cf92fcf4d76b11edb52e526968419a (diff) | |
propellor spin
| -rw-r--r-- | Propellor/CmdLine.hs | 3 |
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" |