2023-03-31 13:27:38 -04:00
|
|
|
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
|
2023-04-01 13:16:43 -04:00
|
|
|
| QtyNotGlobal Qty
|
2023-03-31 13:27:38 -04:00
|
|
|
| DimNameInTerm PBaseName
|
2023-04-01 13:16:43 -04:00
|
|
|
| TypeError Typing.Error
|
2023-03-31 13:27:38 -04:00
|
|
|
| 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
|
