print bound vars as e.g. x#1 instead of x:1

This commit is contained in:
rhiannon morris 2023-02-26 11:21:47 +01:00
parent 4826c35ad6
commit ab63edf572

View file

@ -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