diff options
author | Andrew Cady <d@jerkface.net> | 2019-07-08 18:02:26 -0400 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2019-07-08 18:02:26 -0400 |
commit | 8fcb43a0ce666cf4ae70772847e285b05b31100c (patch) | |
tree | 927c2a27573542468c1f2dd1f14a4289b140ce2a /lib | |
parent | e7373bc2114179db99dd53009b11c1c3b96c7d8e (diff) |
whitespace
Diffstat (limited to 'lib')
-rw-r--r-- | lib/KeyRing/BuildKeyDB.hs | 6 |
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 |