removed deprecated argument to KeyRingFile

1 files changed, 4 insertions, 4 deletions

diff --git a/kiki.hs b/kiki.hs
index a3c0a56..cae8ae8 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -705,7 +705,7 @@ sync bExport bImport bSecret cmdarg args_raw = do
                                , (buildStreamInfo reftyp WalletFile) { access = Sec }))
                     wallets
         rings = map (\fname -> ( ArgFile fname
-                               , buildStreamInfo reftyp $ KeyRingFile passfd))
+                               , buildStreamInfo reftyp KeyRingFile ))
                     keyrings_
         hosts = maybe [] (map decorate) $ Map.lookup "--hosts" margs
                     where decorate fname = (ArgFile fname, buildStreamInfo reftyp Hosts)
@@ -726,10 +726,10 @@ sync bExport bImport bSecret cmdarg args_raw = do
             { opFiles = Map.fromList $
                 [ ( HomeSec, buildStreamInfo (if bSecret && bImport then KF_All
                                                                     else KF_None)
-                                             (KeyRingFile passfd) )
+                                             KeyRingFile )
                 , ( HomePub, buildStreamInfo (if bImport then pubfill
                                                          else KF_None)
-                                             (KeyRingFile Nothing) )
+                                             KeyRingFile )
                 ]
                 ++ rings
                 ++ if bSecret then pems else []
@@ -825,7 +825,7 @@ kiki "show" args = do
         hosts = []
         walts = []
         streaminfo = StreamInfo { fill = KF_None
-                                , typ = KeyRingFile passfd
+                                , typ = KeyRingFile
                                 , spill = KF_All
                                 , initializer = Nothing
                                 , access = AutoAccess