diff options
| author | stuebinm | 2021-11-02 22:00:34 +0100 |
|---|---|---|
| committer | stuebinm | 2021-11-02 22:00:34 +0100 |
| commit | d0dc669c495f5f9e3dae20481e0aae183f606519 (patch) | |
| tree | c1678311a69211224c75f1dd36e053c2416eece9 /lib/Properties.hs | |
| parent | 3f5096f3494050e3882ab7c618f358b67d300889 (diff) | |
monad plumbing to let the linter modify things
I'm not sure if this is the right approach tbh — it lets the LintWriter monad
modify its own context, but maybe we might run into cases where lints and
modifications depend on each other across longer "distances" than just the
context of the linter (i.e. just across a property?)
Diffstat (limited to '')
| -rw-r--r-- | lib/Properties.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 65782c8..403df8e 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -88,7 +88,7 @@ checkTileset = do mapM_ checkTilesetProperty (fromMaybe [] $ tilesetProperties tileset) checkTilesetProperty :: Property -> LintWriter Tileset -checkTilesetProperty p@(Property name value) = case name of +checkTilesetProperty (Property name _value) = case name of "copyright" -> pure () -- only allow some licenses? _ -> pure () -- are there any other properties? |