rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

print ` before enum types

Browse source
This commit is contained in:
rhiannon morris 2023-02-26 11:23:30 +01:00
parent eaf679edf7
commit e896b24f58
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/Quox/Syntax/Term/Pretty.idr
View file

@ -110,7 +110,8 @@ mutual
let GotPairs {init, last, _} = getPairs t in let GotPairs {init, last, _} = getPairs t in
prettyTuple $ s :: init ++ [last] prettyTuple $ s :: init ++ [last]
prettyM (Enum tags) = prettyM (Enum tags) =
pure $ braces . aseparate comma $ map prettyTag $ Prelude.toList tags pure $ delims "`{" "}" . aseparate comma $ map prettyTag $
Prelude.toList tags
prettyM (Tag t) = prettyM (Tag t) =
pure $ prettyTag t pure $ prettyTag t
prettyM (Eq (S _ (N ty)) l r) = prettyM (Eq (S _ (N ty)) l r) =