diff options
Diffstat (limited to 'lib/Properties.hs')
| -rw-r--r-- | lib/Properties.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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) |