diff options
| author | stuebinm | 2021-09-20 02:17:13 +0200 |
|---|---|---|
| committer | stuebinm | 2021-09-20 02:17:13 +0200 |
| commit | a4476a3e6d44e8e2ae054a8aec68836b2e813c60 (patch) | |
| tree | 3afe870489a119223b62b17f12e8b79117699a17 /lib/LintWriter.hs | |
| parent | 5b8ed8ad906e92bce5b8576b29ae6f2cc46d8696 (diff) | |
lint embedded tilesets
Diffstat (limited to 'lib/LintWriter.hs')
| -rw-r--r-- | lib/LintWriter.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/LintWriter.hs b/lib/LintWriter.hs index 02815e3..120a0f5 100644 --- a/lib/LintWriter.hs +++ b/lib/LintWriter.hs @@ -40,8 +40,8 @@ lintToDep = \case Depends dep -> Just dep _ -> Nothing -lintsToDeps :: LintResult a -> [Dep] -lintsToDeps (LintResult a) = case a of +lintResultToDeps :: LintResult a -> [Dep] +lintResultToDeps (LintResult a) = case a of Left (Depends dep) -> [dep] Left _ -> [] Right (_, lints) -> mapMaybe lintToDep lints @@ -70,9 +70,6 @@ forbid = lint Forbidden suggest = lint Suggestion complain = lint Error -dependsLocal = dependsOn . Local -dependsLink = dependsOn . Link -dependsMapService = dependsOn . MapLink -- TODO: all these functions should probably also just operate on LintWriter |