Allow to re-use passphrases accross multiple runKeyring operations

1 files changed, 1 insertions, 0 deletions

diff --git a/kiki.hs b/kiki.hs
index 607a935..b39338d 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1216,6 +1216,7 @@ kiki "init-key" args = do
                 , ( ArgFile ipsecpath, peminfo 1024 "strongswan" )
                 , ( ArgFile sshcpath, peminfo 2048 "ssh-client" )
                 , ( ArgFile sshspath, peminfo 2048 "ssh-server" ) ]
+             , opPassphrases = [ PassphraseMemoizer (rtPassphrases rt) ]
              }
     forM_ [sshcpath,sshspath,ipsecpath] mkdirFor
     KikiResult rt report <- runKeyRing op2