diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 5783612..9e477d9 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -74,6 +74,7 @@ spin host = do putStr $ "Sending " ++ keyring ++ " to " ++ host ++ "..." hFlush stdout s <- toB64 <$> readFile keyring + putStrLn $ toMarked keyringMarker s hPutStrLn toh $ toMarked keyringMarker s hFlush toh putStrLn "done"