From 8fcb43a0ce666cf4ae70772847e285b05b31100c Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 8 Jul 2019 18:02:26 -0400 Subject: whitespace --- lib/KeyRing/BuildKeyDB.hs | 6 +++--- 1 file 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 -- | spilled -- ring packets with info available for export - -- | unspilled + -- | unspilled -- the rest (spilled,unspilled) = Map.partition (spillable . fst) ringPackets -- | keys - -- process ringPackets, and get a map of fingerprint info to + -- process ringPackets, and get a map of fingerprint info to -- to a packet, remembering it's original file, access. keys :: Map.Map KeyKey (OriginMapped Query) mwk :: Maybe MappedPacket @@ -231,7 +231,7 @@ buildKeyDB ctx grip0 keyring = do in fmap sequenceA $ Traversable.traverse (uncurry trans) $ Map.mapWithKey (,) spilled #endif try transformed0 $ \transformed -> do - let -- | db_rings - all keyrings combined into one + let -- | db_rings - all keyrings combined into one db_rings :: Map.Map KeyKey KeyData db_rings = Map.foldlWithKey' mergeIt Map.empty transformed where -- cgit v1.2.3