summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/KeyRing/BuildKeyDB.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index a2fdfd2..5e90655 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -183,12 +183,12 @@ buildKeyDB ctx grip0 keyring = do
183 183
184 -- | spilled 184 -- | spilled
185 -- ring packets with info available for export 185 -- ring packets with info available for export
186 -- | unspilled 186 -- | unspilled
187 -- the rest 187 -- the rest
188 (spilled,unspilled) = Map.partition (spillable . fst) ringPackets 188 (spilled,unspilled) = Map.partition (spillable . fst) ringPackets
189 189
190 -- | keys 190 -- | keys
191 -- process ringPackets, and get a map of fingerprint info to 191 -- process ringPackets, and get a map of fingerprint info to
192 -- to a packet, remembering it's original file, access. 192 -- to a packet, remembering it's original file, access.
193 keys :: Map.Map KeyKey (OriginMapped Query) 193 keys :: Map.Map KeyKey (OriginMapped Query)
194 mwk :: Maybe MappedPacket 194 mwk :: Maybe MappedPacket
@@ -231,7 +231,7 @@ buildKeyDB ctx grip0 keyring = do
231 in fmap sequenceA $ Traversable.traverse (uncurry trans) $ Map.mapWithKey (,) spilled 231 in fmap sequenceA $ Traversable.traverse (uncurry trans) $ Map.mapWithKey (,) spilled
232#endif 232#endif
233 try transformed0 $ \transformed -> do 233 try transformed0 $ \transformed -> do
234 let -- | db_rings - all keyrings combined into one 234 let -- | db_rings - all keyrings combined into one
235 db_rings :: Map.Map KeyKey KeyData 235 db_rings :: Map.Map KeyKey KeyData
236 db_rings = Map.foldlWithKey' mergeIt Map.empty transformed 236 db_rings = Map.foldlWithKey' mergeIt Map.empty transformed
237 where 237 where