From 17a55dc7a71727a360cc642e7c55e7f2cf82d58a Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 8 Dec 2021 00:53:21 +0100
Subject: fix mapCopyright lint

(forgot that `error` is the builtin haskell function; the one to create
linter errors is called `complain`)
---
 lib/Properties.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Properties.hs')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index a4465d4..2747998 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -69,7 +69,7 @@ checkMap = do
     $ complain "The map's tile size must be 32 by 32 pixels."
 
   unlessHasProperty "mapCopyright"
-    $ error "must give the map's copyright via the \"mapCopyright\" property."
+    $ complain "must give the map's copyright via the \"mapCopyright\" property."
 
 -- | Checks a single property of a map.
 --
@@ -117,8 +117,8 @@ checkTileset = do
   when (isJust (tilesetSource tileset))
     $ complain "Tilesets must be embedded and cannot be loaded from external files."
   -- TODO: check copyright!
-  unlessHasProperty "tiledCopyright"
-    $ forbid "property \"tiledCopyright\" for tilesets must be set."
+  unlessHasProperty "tilesetCopyright"
+    $ forbid "property \"tilesetCopyright\" for tilesets must be set."
 
   -- check individual tileset properties
   mapM_ checkTilesetProperty (fromMaybe [] $ tilesetProperties tileset)
-- 
cgit v1.2.3