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 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/Properties.hs')

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)
 
-- 
cgit v1.2.3