diff options
| -rw-r--r-- | Propellor/CmdLine.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index fe16022c..09407a97 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -78,11 +78,11 @@ spin host = do hPutStrLn stderr "SEND-KEYRING" hFlush stderr s <- readProcess "gpg" $ gpgopts ++ ["--export", "-a"] - hPutStr toh $ toMarked keyringMarker s + hPutStrLn toh $ toMarked keyringMarker s Just HaveKeyRing -> noop hPutStrLn stderr "POST-KEYRING" hFlush stderr - hPutStr toh $ toMarked privDataMarker privdata + hPutStrLn toh $ toMarked privDataMarker privdata hFlush toh hClose fromh |