git.iko.soy/elk
on 2aa7dcd help sign in
elk/src/Reporting/Warning.hs
29 lines 580 B history raw
1module Reporting.Warning where
3import qualified AST.Module as Module
5import qualified Reporting.Annotation as A
7import qualified Reporting.Warning.CheckMatch as CheckMatch
10data Warning
11 = UnusedImport Module.Name
12 | MissingTypeAnnotation String
13 | MatchWarning CheckMatch.Warning
15-- TO STRING
17toString :: A.Located Warning -> String
18toString (A.A region warning) =
19 case warning of
20 _ -> error "Warning.toString" region
23-- TO JSON
25toJson :: A.Located Warning -> String
26toJson (A.A region warning) =
27 case warning of
28 _ -> error "Warning.toJson" region