From 51c7823a4205f1b017ddfce65d72842fb5f8dd06 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Thu, 4 Jul 2019 14:58:05 -0400 Subject: Fix pattern fail. --- lib/KeyRing.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/KeyRing.hs') 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) -- cgit v1.2.3