From 8423f5d8382eff36e901937ba6849de325088f5f Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 30 Aug 2016 05:46:08 -0400
Subject: More error reporting.

---
 lib/Kiki.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/Kiki.hs')

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]
-- 
cgit v1.2.3