diff options
author | Joe Crayne <joe@jerkface.net> | 2019-07-13 21:18:22 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-07-13 21:18:22 -0400 |
commit | 3f29bdc88a068ec3eab91a8bac12757e3a106ceb (patch) | |
tree | 09507dcfed5524694a2280fd11fb607023f7ce8b /lib/PacketTranscoder.hs | |
parent | cc6775a52107f5425d668a4831f475d05dc113b5 (diff) |
Finished encapsulation of KeyDB.
Diffstat (limited to 'lib/PacketTranscoder.hs')
-rw-r--r-- | lib/PacketTranscoder.hs | 2 |
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) | |||
332 | combineKeyKey (master1,mp,um) (master2,mp2,um2) = (master1 `mplus` master2,mp,Map.unionWith (++) um um2) | 332 | combineKeyKey (master1,mp,um) (master2,mp2,um2) = (master1 `mplus` master2,mp,Map.unionWith (++) um um2) |
333 | uidmap ps = um2 | 333 | uidmap ps = um2 |
334 | where | 334 | where |
335 | ugs = dropWhile (not . isUserID . packet .head) $ groupBy (const $ not . isUserID . packet) ps | 335 | ugs = dropWhile (isNothing . isUserID . packet .head) $ groupBy (const $ isNothing . isUserID . packet) ps |
336 | um2 = Map.fromList | 336 | um2 = Map.fromList |
337 | $ map (\(MappedPacket (UserIDPacket s) _:sigs)->(s,takeWhile isSignaturePacket $ map packet sigs)) ugs | 337 | $ map (\(MappedPacket (UserIDPacket s) _:sigs)->(s,takeWhile isSignaturePacket $ map packet sigs)) ugs |