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)