diff --git a/lib/Quox/Pretty.idr b/lib/Quox/Pretty.idr index 606ec78..1083951 100644 --- a/lib/Quox/Pretty.idr +++ b/lib/Quox/Pretty.idr @@ -37,8 +37,8 @@ data PPrec public export data HL = Delim -| Free | TVar | TVarErr -| Dim | DVar | DVarErr +| Free | TVar +| Dim | DVar | Qty | Universe | Syntax | Constant @@ -79,10 +79,8 @@ toSGR : HL -> List SGR toSGR Delim = [] toSGR Free = [SetForeground BrightBlue] toSGR TVar = [SetForeground BrightYellow] -toSGR TVarErr = [SetForeground BrightYellow, SetStyle SingleUnderline] toSGR Dim = [SetForeground BrightGreen] toSGR DVar = [SetForeground BrightGreen] -toSGR DVarErr = [SetForeground BrightGreen, SetStyle SingleUnderline] toSGR Qty = [SetForeground BrightMagenta] toSGR Universe = [SetForeground BrightRed] toSGR Syntax = [SetForeground BrightCyan] @@ -97,10 +95,8 @@ toClass : HL -> String toClass Delim = "dl" toClass Free = "fr" toClass TVar = "tv" -toClass TVarErr = "tv err" toClass Dim = "dc" toClass DVar = "dv" -toClass DVarErr = "dv err" toClass Qty = "qt" toClass Universe = "un" toClass Syntax = "sy" @@ -345,7 +341,7 @@ prettyBounds (MkBounds l1 c1 l2 c2) = export prettyLoc : {opts : LayoutOpts} -> Loc -> Eff Pretty (Doc opts) prettyLoc (L NoLoc) = - hcat <$> sequence [hl TVarErr "no location", colonD] + hcat <$> sequence [hl TVar "no location", colonD] prettyLoc (L (YesLoc file b)) = hcat <$> sequence [hl Free $ text file, colonD, prettyBounds b]