From 48b3c546b75ee27638562e3031e8c42677d506e2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 14:28:24 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Propellor/CmdLine.hs') 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" -- cgit v1.2.3