From fe847ffb3bd02fb661f1cb86532cee8186c1e82c Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 30 Aug 2016 00:46:48 -0400 Subject: oops: only ipsec was going to /var/cache/kiki --- lib/Kiki.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Kiki.hs b/lib/Kiki.hs index f9d4a4e..70d5ed6 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs @@ -393,7 +393,7 @@ refreshCache rt rootdir = do let writeSecret tag path warning = do let my_ks :: [Packet] - my_ks = getSecret "ipsec" + my_ks = getSecret tag case my_ks of se0:_ -> do sc1 <- rtPassphrases rt (Unencrypted,S2K 100 "") $ MappedPacket se0 Map.empty let sec = case sc1 of -- cgit v1.2.3