change some highlighting

This commit is contained in:
rhiannon morris 2023-02-26 11:18:11 +01:00
parent 60f07a938e
commit fbfbe57266

View file

@ -204,16 +204,16 @@ prettyStr unicode =
export export
termHL : HL -> AnsiStyle termHL : HL -> AnsiStyle
termHL Delim = color BrightBlack termHL Delim = neutral
termHL TVar = color BrightYellow termHL TVar = color BrightYellow
termHL TVarErr = color BrightYellow <+> underline termHL TVarErr = color BrightYellow <+> underline
termHL Dim = color BrightGreen <+> bold termHL Dim = color BrightGreen
termHL DVar = color BrightGreen termHL DVar = color BrightGreen
termHL DVarErr = color BrightGreen <+> underline termHL DVarErr = color BrightGreen <+> underline
termHL Qty = color BrightMagenta <+> bold termHL Qty = color BrightMagenta
termHL Free = color BrightWhite termHL Free = color BrightBlue
termHL Syntax = color BrightCyan termHL Syntax = color BrightCyan
termHL Tag = color BrightBlue termHL Tag = color BrightRed
export %inline export %inline
prettyTerm : PrettyOpts -> PrettyHL a => a -> IO Unit prettyTerm : PrettyOpts -> PrettyHL a => a -> IO Unit