More error reporting.

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 468394f..87b6ea5 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -418,6 +418,13 @@ refreshCache rt rootdir = do
                                        })
     KikiResult rt' report <- runKeyRing exportOp
 
+    outputReport report
+    -- outputReport $ map (first $ resolveForReport ctx) $ filter ((/=ExportedSubkey) . snd) report
+    rt <- case rt' of
+        BadPassphrase ->
+            error "Operation requires correct passphrase. (Hint: Use --passphrase-fd=0 to input it on stdin.)"
+        _ -> unconditionally $ return rt'
+
     {-
     let writeSecret tag path warning = do
         let my_ks :: [Packet]