summaryrefslogtreecommitdiff
path: root/lib/KeyRing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/KeyRing.hs')
-rw-r--r--lib/KeyRing.hs4
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)