diff options
Diffstat (limited to '')
-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 |