summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Propellor/CmdLine.hs4
1 files changed, 4 insertions, 0 deletions
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