From 1260829bd6cd513fa3f20467ced370480ac71842 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 23 Dec 2021 23:23:23 +0100
Subject: some people define tilesets without images???

---
 lib/Properties.hs | 4 +++-
 lib/Tiled.hs      | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 2b59a6b..daedabc 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -157,7 +157,9 @@ checkMapProperty p@(Property name _) = case name of
 checkTileset ::  LintWriter Tileset
 checkTileset = do
   tileset <- askContext
-  unwrapPath (tilesetImage tileset) (dependsOn . Local)
+  case tilesetImage tileset of
+    Just str -> unwrapPath str (dependsOn . Local)
+    Nothing -> complain "Tileset does not refer to an image."
 
   refuseDoubledNames (getProperties tileset)
 
diff --git a/lib/Tiled.hs b/lib/Tiled.hs
index c5abb21..bca5f1a 100644
--- a/lib/Tiled.hs
+++ b/lib/Tiled.hs
@@ -289,7 +289,7 @@ instance ToJSON Tile where
 
 data Tileset = Tileset { tilesetFirstgid         :: GlobalId
                          -- ^ GID corresponding to the first tile in the set
-                       , tilesetImage            :: Text
+                       , tilesetImage            :: Maybe Text
                          -- ^ Image used for tiles in this set
                        , tilesetName             :: Text
                          -- ^ Name given to this tileset
-- 
cgit v1.2.3