always use a single pass.

1 files changed, 5 insertions, 2 deletions

diff --git a/kiki.hs b/kiki.hs
index fb6321c..5fcef99 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1553,7 +1553,10 @@ doExport doDecrypt (db,use_db) (fname,subspec,ms,cmd) =
             ExitFailure num -> noop $ fname ++ ": failed external (code="++show num++")"
             ExitSuccess     -> do
                 warn $ fname ++ ": generated"
-                return (Nothing,use_db) -- need another pass
+                -- return (Nothing,use_db) -- need another pass
+                -- flip (maybe $ return (Nothing,use_db)) db $ \db -> do
+                db' <- doImport doDecrypt db (fname,subspec,ms,cmd) 
+                return (db', use_db)
     export = do
         let [kk] = ms
             Just (KeyData key _ _ subkeys) = Map.lookup kk use_db
@@ -2448,7 +2451,7 @@ main = do
 
         use_db <- foldM (doBTCImport decrypt) use_db pbtcs
 
-        (ret_db,_) <- foldM (doExport decrypt) (Just use_db,use_db) (map snd exports)
+        (Just -> ret_db,_) <- foldM (doExport decrypt) (use_db,use_db) (map snd exports)
 
         use_db <-
             flip (maybe $ return use_db)