diff options
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r-- | lib/Kiki.hs | 4 |
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 |