From ceab15aef5d23c9843c0593369b72038b5eb926d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 12:17:58 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 4 ++-- 1 file 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 -- cgit v1.3-2-g0d8e