Skip to content
Snippets Groups Projects
Commit f62af2a1 authored by stuebinm's avatar stuebinm
Browse files

fix some weird lints

(since we're starting to get maps that actually pass linting, we also
get to find more bugs! yay!)
parent f92c8d3e
Branches
No related tags found
No related merge requests found
Pipeline #10000 passed
...@@ -166,7 +166,7 @@ checkTileset = do ...@@ -166,7 +166,7 @@ checkTileset = do
where where
checkTilesetProperty :: Property -> LintWriter Tileset checkTilesetProperty :: Property -> LintWriter Tileset
checkTilesetProperty p@(Property name _value) = case name of checkTilesetProperty p@(Property name _value) = case name of
"copyright" -> naiveEscapeProperty p "tilesetCopyright" -> naiveEscapeProperty p
_ -> warn $ "unknown tileset property " <> prettyprint name _ -> warn $ "unknown tileset property " <> prettyprint name
checkTile :: Tile -> LintWriter Tileset checkTile :: Tile -> LintWriter Tileset
...@@ -349,7 +349,6 @@ checkTileLayerProperty p@(Property name _value) = case name of ...@@ -349,7 +349,6 @@ checkTileLayerProperty p@(Property name _value) = case name of
unwrapURI (Proxy @"map") p unwrapURI (Proxy @"map") p
(\link -> do (\link -> do
dependsOn (MapLink link) dependsOn (MapLink link)
warn $ "resolved link" <> link
setProperty "exitUrl" link setProperty "exitUrl" link
) )
$ \path -> $ \path ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment