oops: only ipsec was going to /var/cache/kiki

1 files changed, 1 insertions, 1 deletions

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