summaryrefslogtreecommitdiff
path: root/lib/KeyRing
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2019-07-08 18:02:26 -0400
committerAndrew Cady <d@jerkface.net>2019-07-08 18:02:26 -0400
commit8fcb43a0ce666cf4ae70772847e285b05b31100c (patch)
tree927c2a27573542468c1f2dd1f14a4289b140ce2a /lib/KeyRing
parente7373bc2114179db99dd53009b11c1c3b96c7d8e (diff)
whitespace
Diffstat (limited to 'lib/KeyRing')
-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