summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorstuebinm2021-12-08 00:53:21 +0100
committerstuebinm2021-12-08 00:54:07 +0100
commit17a55dc7a71727a360cc642e7c55e7f2cf82d58a (patch)
tree55db375e822381d9d8b1ea0b4b9b1e3f2a295caa /lib
parent1cbbc7e5bc37ddd2e1c9281a3db30ed7309d289f (diff)
fix mapCopyright lint
(forgot that `error` is the builtin haskell function; the one to create linter errors is called `complain`)
Diffstat (limited to 'lib')
-rw-r--r--lib/Properties.hs6
1 files changed, 3 insertions, 3 deletions
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)