diff options
| author | joe <joe@jerkface.net> | 2016-08-25 02:37:17 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2016-08-25 02:37:17 -0400 |
| commit | aea085761eeaeb0debc1373aeb7edee25c3120a5 (patch) | |
| tree | b3cfb75893a43d581eb3948eb2119d1db1571272 /lib/Kiki.hs | |
| parent | b71913df7945838de8526f4019ecdcba6afe6d28 (diff) | |
Progress toward encrypting keys.
Diffstat (limited to 'lib/Kiki.hs')
| -rw-r--r-- | lib/Kiki.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index bdf8932..3bc6330 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
| @@ -351,6 +351,7 @@ refreshCache rt rootdir = do | |||
| 351 | ipsecs :: [Packet] | 351 | ipsecs :: [Packet] |
| 352 | ipsecs = sortOn (Down . timestamp) | 352 | ipsecs = sortOn (Down . timestamp) |
| 353 | $ getSubkeys CrossSigned their_master (keySubKeys kd) "ipsec" | 353 | $ getSubkeys CrossSigned their_master (keySubKeys kd) "ipsec" |
| 354 | ++ getSubkeys CrossSigned their_master (keySubKeys kd) "strongswan" | ||
| 354 | bss <- forM (take 1 ipsecs) $ \k -> do | 355 | bss <- forM (take 1 ipsecs) $ \k -> do |
| 355 | let warn' x = warn x >> return Char8.empty | 356 | let warn' x = warn x >> return Char8.empty |
| 356 | flip (either warn') (pemFromPacket k :: Either String String) $ \pem -> do | 357 | flip (either warn') (pemFromPacket k :: Either String String) $ \pem -> do |