diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-07-04 14:58:05 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-04 14:58:05 -0400 |
| commit | 51c7823a4205f1b017ddfce65d72842fb5f8dd06 (patch) | |
| tree | 1f5dc6e8b3423b0b8d055debd63b8aff1aa10763 /lib | |
| parent | d0030addd10a5e227ddd82256bdcdb0f5e3811ac (diff) | |
Fix pattern fail.
Diffstat (limited to 'lib')
| -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) |