From a4476a3e6d44e8e2ae054a8aec68836b2e813c60 Mon Sep 17 00:00:00 2001 From: stuebinm Date: Mon, 20 Sep 2021 02:17:13 +0200 Subject: lint embedded tilesets --- lib/LintWriter.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'lib/LintWriter.hs') 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 -- cgit v1.2.3