1 files changed, 5 insertions, 1 deletions

diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index 6eadfe4..eaed938 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -315,8 +315,12 @@ keyQueries grip ringPackets = (mwk, fmap makeQuery keys)
             m2 :: Map.Map KeyKey (Maybe Packet, MappedPacket, (Map.Map String [Packet]))
             m2 = Map.fromList
                     $ drop 1
-                    $ scanl' build ([],(Nothing,error "bug in PacketTranscoder (1)", error "bug in PacketTranscoder (2)")) pss
+                    $ scanl' build failure pss
                 where
+                    failure = ( error "bug in PacketTranscoder(3)"
+                              , (Nothing,error "bug in PacketTranscoder (1)"
+                              , error "bug in PacketTranscoder (2)")
+                              )
                     build (_,(main0,_,_)) ps = (kk,(main,kp,uidmap ps'))
                      where
                         main | is_subkey (packet kp) = main0