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, 14 insertions, 4 deletions

diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index fead0b9..885ee70 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -21,20 +21,21 @@ import           GHC.Generics     (Generic)
 
 
 import           Badges           (Badge)
-import           LintConfig       (LintConfig', LintConfig (configAssemblyTag))
+import           LintConfig       (LintConfig (configAssemblyTag), LintConfig')
 import           LintWriter       (LintResult, invertLintResult,
                                    resultToAdjusted, resultToBadges,
                                    resultToDeps, resultToLints, resultToOffers,
                                    runLintWriter)
 import           Properties       (checkLayer, checkMap, checkTileset)
+import           System.FilePath  (takeFileName)
 import           Tiled            (Layer (layerLayers, layerName),
                                    LoadResult (..),
                                    Tiledmap (tiledmapLayers, tiledmapTilesets),
                                    loadTiledmap)
-import           Types            (Dep (MapLink), Hint (Hint, hintLevel, hintMsg),
-                                   Level (..), lintsToHints)
+import           Types            (Dep (MapLink),
+                                   Hint (Hint, hintLevel, hintMsg), Level (..),
+                                   lintsToHints)
 import           Util             (PrettyPrint (prettyprint), prettyprint)
-import System.FilePath (takeFileName)
 
 
 
@@ -56,6 +57,15 @@ data MapResult = MapResult
   -- ^ general-purpose lints that didn't fit anywhere else
   } deriving (Generic)
 
+
+instance Eq MapResult where
+  a == b =
+    mapresultLayer a == mapresultLayer b &&
+    mapresultTileset a == mapresultTileset b &&
+    -- mapresultBadges a == mapresultBadges b &&
+    mapresultGeneral a == mapresultGeneral b
+
+
 instance ToJSON MapResult where
   toJSON res = A.object
     [ "layer" .= CollectedLints (mapresultLayer res)