diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1683,7 +1683,7 @@ tarC (sargs,margs) = do | |||
1683 | decrypt :: KeyRingRuntime -> Packet -> IO (Maybe Packet) | 1683 | decrypt :: KeyRingRuntime -> Packet -> IO (Maybe Packet) |
1684 | decrypt rt k@SecretKeyPacket { symmetric_algorithm = Unencrypted } = return $ Just k | 1684 | decrypt rt k@SecretKeyPacket { symmetric_algorithm = Unencrypted } = return $ Just k |
1685 | decrypt rt k = do | 1685 | decrypt rt k = do |
1686 | r <- rtPassphrases rt (MappedPacket k Map.empty) | 1686 | r <- rtPassphrases rt (Unencrypted,S2K 100 "") (MappedPacket k Map.empty) |
1687 | case r of | 1687 | case r of |
1688 | KikiSuccess p -> return $ Just p | 1688 | KikiSuccess p -> return $ Just p |
1689 | _ -> do | 1689 | _ -> do |