diff options
author | stuebinm | 2021-12-08 00:53:21 +0100 |
---|---|---|
committer | stuebinm | 2021-12-08 00:54:07 +0100 |
commit | 17a55dc7a71727a360cc642e7c55e7f2cf82d58a (patch) | |
tree | 55db375e822381d9d8b1ea0b4b9b1e3f2a295caa /lib | |
parent | 1cbbc7e5bc37ddd2e1c9281a3db30ed7309d289f (diff) |
fix mapCopyright lint
(forgot that `error` is the builtin haskell function; the one to create
linter errors is called `complain`)
Diffstat (limited to '')
-rw-r--r-- | lib/Properties.hs | 6 |
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) |