print bound vars as e.g. x#1 instead of x:1
This commit is contained in:
parent
4826c35ad6
commit
ab63edf572
1 changed files with 1 additions and 1 deletions
|
@ -45,7 +45,7 @@ parameters {auto _ : Pretty.HasEnv m}
|
|||
private
|
||||
prettyIndex : Nat -> m (Doc a)
|
||||
prettyIndex i =
|
||||
ifUnicode (pretty $ pack $ map sup $ unpack $ show i) (":" <+> pretty i)
|
||||
ifUnicode (pretty $ pack $ map sup $ unpack $ show i) ("#" <+> pretty i)
|
||||
where
|
||||
sup : Char -> Char
|
||||
sup c = case c of
|
||||
|
|
Loading…
Reference in a new issue