From ffd1928b39695b2037c782ba48a7908ee6b27ada Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 12:16:34 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index 576062e3..fe16022c 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -75,9 +75,13 @@ spin host = do case status of Nothing -> error "protocol error" Just NeedKeyRing -> do + hPutStrLn stderr "SEND-KEYRING" + hFlush stderr s <- readProcess "gpg" $ gpgopts ++ ["--export", "-a"] hPutStr toh $ toMarked keyringMarker s Just HaveKeyRing -> noop + hPutStrLn stderr "POST-KEYRING" + hFlush stderr hPutStr toh $ toMarked privDataMarker privdata hFlush toh hClose fromh -- cgit v1.2.3