git.iko.soy/elk
on 4fdad11 help sign in
elk/src/Reporting/Error/Syntax.hs
35 lines 704 B history raw
1{-# OPTIONS_GHC -Wall #-}
2module Reporting.Error.Syntax where
4import qualified Data.Aeson as Json
5import qualified Text.Parsec.Error as Parsec
7import qualified Reporting.Region as R
10data Error
11 = Parse [Parsec.Message]
12 | InfixDuplicate String
13 | TypeWithoutDefinition String
14 | PortWithoutAnnotation String
15 | DuplicateValueDeclaration String
16 | DuplicateTypeDeclaration String
17 | DuplicateDefinition String
18 | UnboundTypeVar String String
21-- TO STRING
23toString :: R.Region -> Error -> String
24toString region err =
25 case err of
26 _ -> error "Syntax.toString" region
29-- TO JSON
31toJson :: Error -> Json.Value
32toJson err =
33 case err of
34 _ -> error "Syntax.toJson"