diff options
-rw-r--r-- | lib/KeyRing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index 515faf6..14a3a0c 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs | |||
@@ -826,8 +826,8 @@ writeRingKeys krd rt {- db wk secring pubring -} unspilled report_manips = do | |||
826 | , bool MissingPacket NewPacket mutable $ showPacket (packet c) | 826 | , bool MissingPacket NewPacket mutable $ showPacket (packet c) |
827 | ) | 827 | ) |
828 | forM_ towrites $ \(stream,f,xs) -> do | 828 | forM_ towrites $ \(stream,f,xs) -> do |
829 | let encoding = case typ stream of PGPPackets e -> e | 829 | let encoding = case typ stream of PGPPackets AsciiArmor -> AsciiArmor |
830 | _ -> BinaryPackets | 830 | _ -> BinaryPackets |
831 | enc = case encoding of | 831 | enc = case encoding of |
832 | BinaryPackets -> id | 832 | BinaryPackets -> id |
833 | AsciiArmor -> ASCIIArmor.encodeLazy . mkarmor (access stream) | 833 | AsciiArmor -> ASCIIArmor.encodeLazy . mkarmor (access stream) |