diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 12:17:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 12:17:58 -0400 |
| commit | ceab15aef5d23c9843c0593369b72038b5eb926d (patch) | |
| tree | e218bfeb9717d25f8ee22ca6bfb1778a3661789c | |
| parent | ffd1928b39695b2037c782ba48a7908ee6b27ada (diff) | |
propellor spin
| -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 |