maps, maps, and yet more maps

don't add maps to the result if their lint result looks the same as that
of another list, just say it happened several times instead (this leads
to a rather confusing Eq instance for MapResult which implements a very
simple surface-level equality — perhaps change that later)

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/Uris.hs b/lib/Uris.hs
index 5c2ad05..6436ac6 100644
--- a/lib/Uris.hs
+++ b/lib/Uris.hs
@@ -22,9 +22,9 @@ import           Data.Text               (Text, pack)
 import qualified Data.Text               as T
 import           GHC.Generics            (Generic)
 import           GHC.TypeLits            (KnownSymbol, symbolVal)
+import           Network.URI.Encode      as URI
 import           Text.Regex.TDFA         ((=~))
-import Witherable (mapMaybe)
-import Network.URI.Encode as URI
+import           Witherable              (mapMaybe)
 
 data Substitution =
     Prefixed { prefix :: Text, blocked :: [Text], allowed :: [Text], scope :: [String] }
@@ -82,7 +82,7 @@ applySubsts s substs uri =  do
     []  -> Left (SchemaDoesNotExist schema)
     results@(_:_) -> case mapMaybe rightToMaybe results of
       suc:_ -> Right suc
-      _ -> minimum results
+      _     -> minimum results
 
   where
     note = maybeToRight