diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-31 12:16:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-31 12:16:34 -0400 |
| commit | ffd1928b39695b2037c782ba48a7908ee6b27ada (patch) | |
| tree | f4bbea84f9e0838f26f6b5a98b97b416645d9f7a | |
| parent | e7ae49a7e72195513ac5dcc218b9d79038052859 (diff) | |
propellor spin
| -rw-r--r-- | Propellor/CmdLine.hs | 4 |
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 |