summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-03-31 12:16:34 -0400
committerJoey Hess2014-03-31 12:16:34 -0400
commitffd1928b39695b2037c782ba48a7908ee6b27ada (patch)
treef4bbea84f9e0838f26f6b5a98b97b416645d9f7a
parente7ae49a7e72195513ac5dcc218b9d79038052859 (diff)
propellor spin
-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