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, 6 insertions, 6 deletions

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 605f970..e594751 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -12,17 +12,17 @@ module Properties (checkMap, checkTileset, checkLayer) where
 
 
 import           Control.Monad     (forM, forM_, unless, when)
-import           Data.Text         (Text, intercalate, isPrefixOf, isInfixOf)
+import           Data.Text         (Text, intercalate, isInfixOf, isPrefixOf)
 import qualified Data.Text         as T
 import qualified Data.Vector       as V
 import           Tiled             (Layer (..), Object (..), Property (..),
                                     PropertyValue (..), Tile (..),
                                     Tiledmap (..), Tileset (..))
-import           TiledAbstract     (HasName (..), HasProperties (..),
-                                    HasTypeName (..), IsProperty (..),
-                                    HasData (..), layerIsEmpty)
-import           Util              (mkProxy, naiveEscapeHTML,
-                                    prettyprint, showText)
+import           TiledAbstract     (HasData (..), HasName (..),
+                                    HasProperties (..), HasTypeName (..),
+                                    IsProperty (..), layerIsEmpty)
+import           Util              (mkProxy, naiveEscapeHTML, prettyprint,
+                                    showText)
 
 import           Badges            (Badge (Badge),
                                     BadgeArea (BadgePoint, BadgeRect),