1 files changed, 1 insertions, 1 deletions

diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index 730a221..16d1db5 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -332,6 +332,6 @@ keyQueries grip ringPackets = (mwk, fmap makeQuery keys)
             combineKeyKey (master1,mp,um) (master2,mp2,um2) = (master1 `mplus` master2,mp,Map.unionWith (++) um um2)
             uidmap ps = um2
              where
-                ugs = dropWhile (not . isUserID . packet .head) $ groupBy (const $ not . isUserID . packet) ps
+                ugs = dropWhile (isNothing . isUserID . packet .head) $ groupBy (const $ isNothing . isUserID . packet) ps
                 um2 = Map.fromList
                         $ map (\(MappedPacket (UserIDPacket s) _:sigs)->(s,takeWhile isSignaturePacket $ map packet sigs)) ugs