summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r--lib/Kiki.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index c042540..90d1699 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -255,9 +255,11 @@ importAndRefresh root cmn = do
255 , initializer = NoCreate 255 , initializer = NoCreate
256 , transforms = [] } 256 , transforms = [] }
257 _ -> strm { spill = KF_Match "tor" }) 257 _ -> strm { spill = KF_Match "tor" })
258 , ( Generate 1 (GenRSA (1024 `div` 8)), strm { spill = KF_Match "ipsec" }) 258 , ( Generate 1 (GenRSA (2048 `div` 8)), strm { spill = KF_Match "ipsec" })
259 , ( ArgFile sshcpath, (peminfo 2048 "ssh-client") ) 259 , ( ArgFile sshcpath, (peminfo 2048 "ssh-client") )
260 , ( ArgFile sshspath, (peminfo 2048 "ssh-server") ) 260 , ( ArgFile sshspath, (peminfo 2048 "ssh-server") )
261 , ( Generate 2 (GenRSA (4096 `div` 8)), strm { spill = KF_Match "encrypt" })
262 , ( Generate 3 (GenRSA (4096 `div` 8)), strm { spill = KF_Match "sign" })
261 ] 263 ]
262 , opPassphrases = withAgent $ pwds ++ do pfd <- maybeToList passfd 264 , opPassphrases = withAgent $ pwds ++ do pfd <- maybeToList passfd
263 return $ PassphraseSpec Nothing Nothing pfd 265 return $ PassphraseSpec Nothing Nothing pfd