summaryrefslogtreecommitdiff
path: root/lib/KeyRing
diff options
context:
space:
mode:
Diffstat (limited to 'lib/KeyRing')
-rw-r--r--lib/KeyRing/BuildKeyDB.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index 8e54127..10e2d41 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -324,7 +324,7 @@ readPacketsFromFile ctx fname = do
324 Right (more,_,pkt) -> (,) BinaryPackets $ Message $ pkt : decodePacketList more 324 Right (more,_,pkt) -> (,) BinaryPackets $ Message $ pkt : decodePacketList more
325 Left (_,_,_) -> case ASCIIArmor.decodeLazy input of 325 Left (_,_,_) -> case ASCIIArmor.decodeLazy input of
326 Right (Armor pubOrSec headers bs:_) -> (,) AsciiArmor $ Message $ decodePacketList bs 326 Right (Armor pubOrSec headers bs:_) -> (,) AsciiArmor $ Message $ decodePacketList bs
327 Left errmsg -> (,) DetectAscii $ Message [] 327 _ -> (,) DetectAscii $ Message []
328 328
329readPacketsFromWallet :: 329readPacketsFromWallet ::
330 Maybe Packet 330 Maybe Packet