diff options
| -rw-r--r-- | lib/Properties.hs | 4 | ||||
| -rw-r--r-- | lib/Tiled.hs | 2 |
2 files changed, 4 insertions, 2 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) 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 |