Implemented key encryption.

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index 0dedc03..3eb1d2a 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1683,7 +1683,7 @@ tarC (sargs,margs) = do
     decrypt :: KeyRingRuntime -> Packet -> IO (Maybe Packet)
     decrypt rt k@SecretKeyPacket { symmetric_algorithm = Unencrypted } = return $ Just k
     decrypt rt k = do
-        r <- rtPassphrases rt (MappedPacket k Map.empty)
+        r <- rtPassphrases rt (Unencrypted,S2K 100 "") (MappedPacket k Map.empty)
         case r of
             KikiSuccess p -> return $ Just p
             _ -> do