Support unencrypted keys for 'add' method.

1 files changed, 6 insertions, 4 deletions

diff --git a/keys.hs b/keys.hs
index c36a01e..7553ea3 100644
--- a/keys.hs
+++ b/keys.hs
@@ -1027,10 +1027,12 @@ main = do
         flip (maybe (error "No working key?")) grip $ \grip -> do
 
         let (pre, wk:subs) = seek_key grip sec
-            wkun = do
-                k <- decryptSecretKey pw wk 
-                guard (symmetric_algorithm k == Unencrypted)
-                return k
+            wkun = if symmetric_algorithm wk == Unencrypted 
+                    then Just wk
+                    else do
+                        k <- decryptSecretKey pw wk 
+                        guard (symmetric_algorithm k == Unencrypted)
+                        return k
 
         flip (maybe (error "Bad passphrase?")) wkun$ \wkun -> do