git.iko.soy/elk
on 9b0c310 help sign in
elk/src/Reporting/Warning.hs
27 lines 482 B history raw
1module Reporting.Warning where
3import qualified AST.Module as Module
5import qualified Reporting.Annotation as A
8data Warning
9 = UnusedImport Module.Name
10 | MissingTypeAnnotation String
13-- TO STRING
15toString :: A.Located Warning -> String
16toString (A.A region warning) =
17 case warning of
18 _ -> error "Warning.toString" region
21-- TO JSON
23toJson :: A.Located Warning -> String
24toJson (A.A region warning) =
25 case warning of
26 _ -> error "Warning.toJson" region