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]