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
                           , bool MissingPacket NewPacket mutable $ showPacket (packet c)
                           )
     forM_ towrites $ \(stream,f,xs) -> do
-        let encoding = case typ stream of PGPPackets e -> e
-                                          _            -> BinaryPackets
+        let encoding = case typ stream of PGPPackets AsciiArmor -> AsciiArmor
+                                          _                     -> BinaryPackets
             enc = case encoding of
                 BinaryPackets -> id
                 AsciiArmor    -> ASCIIArmor.encodeLazy . mkarmor (access stream)