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
|
private
|
||||||
prettyIndex : Nat -> m (Doc a)
|
prettyIndex : Nat -> m (Doc a)
|
||||||
prettyIndex i =
|
prettyIndex i =
|
||||||
ifUnicode (pretty $ pack $ map sup $ unpack $ show i) (":" <+> pretty i)
|
ifUnicode (pretty $ pack $ map sup $ unpack $ show i) ("#" <+> pretty i)
|
||||||
where
|
where
|
||||||
sup : Char -> Char
|
sup : Char -> Char
|
||||||
sup c = case c of
|
sup c = case c of
|
||||||
|
|
Loading…
Reference in a new issue