quox/lib/Quox/Parser/FromParser/Error.idr

57 lines
1.4 KiB
Idris

module Quox.Parser.FromParser.Error
import Quox.Parser.Parser
import Quox.Typing
import System.File
import Quox.Pretty
public export
data Error =
AnnotationNeeded PTerm
| DuplicatesInEnum (List TagVal)
| DimNotInScope PBaseName
| QtyNotGlobal PQty
| DimNameInTerm PBaseName
| TypeError (Typing.Error Three)
| LoadError String FileError
| ParseError Parser.Error
%hide Typing.Error
%hide Lexer.Error
%hide Parser.Error
parameters (unicode, showContext : Bool)
export
prettyError : Error -> Doc HL
prettyError (AnnotationNeeded tm) =
sep ["the term", "«PTerm»", -- pretty0 unicode tm,
"needs a type annotation"]
prettyError (DuplicatesInEnum tags) =
sep ["duplicate tags in enum type",
braces $ fillSep $ map pretty tags]
prettyError (DimNotInScope i) =
sep ["dimension", pretty0 unicode $ DV $ fromString i,
"not in scope"]
prettyError (QtyNotGlobal pi) =
sep ["quantity", pretty0 unicode pi,
"can't be used on a top level declaration"]
prettyError (DimNameInTerm i) =
sep ["dimension variable", pretty0 unicode $ DV $ fromString i,
"used in a term context"]
prettyError (TypeError err) =
Typing.prettyError unicode showContext $
trimContext 2 err
prettyError (LoadError str err) =
vsep [hsep ["couldn't load file", pretty str],
"«FileError»"]
prettyError (ParseError err) =
pretty $ show err