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

print ; between case branches

Browse source
This commit is contained in:
rhiannon morris 2023-03-26 16:13:36 +02:00
parent 46e13c8ca2
commit e6c4203b46
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -25,10 +25,11 @@ annD = hlF Syntax $ ifUnicode "∷" "::"
natD = hlF Syntax $ ifUnicode "ℕ" "Nat" natD = hlF Syntax $ ifUnicode "ℕ" "Nat"
export %inline export %inline
eqD, colonD, commaD, caseD, returnD, ofD, dotD, zeroD, succD : Doc HL eqD, colonD, commaD, semiD, caseD, returnD, ofD, dotD, zeroD, succD : Doc HL
eqD = hl Syntax "Eq" eqD = hl Syntax "Eq"
colonD = hl Syntax ":" colonD = hl Syntax ":"
commaD = hl Syntax "," commaD = hl Syntax ","
semiD = hl Syntax ";"
caseD = hl Syntax "case" caseD = hl Syntax "case"
ofD = hl Syntax "of" ofD = hl Syntax "of"
returnD = hl Syntax "return" returnD = hl Syntax "return"
@ -123,7 +124,8 @@ export
prettyArms : PrettyHL a => Pretty.HasEnv m => prettyArms : PrettyHL a => Pretty.HasEnv m =>
List (SnocList BaseName, Doc HL, a) -> m (Doc HL) List (SnocList BaseName, Doc HL, a) -> m (Doc HL)
prettyArms = prettyArms =
map (braces . asep) . traverse (\(xs, l, r) => prettyArm T xs l r) map (braces . aseparate semiD) .
traverse (\(xs, l, r) => prettyArm T xs l r)
export export
prettyCase : PrettyHL a => PrettyHL b => PrettyHL c => IsQty q => prettyCase : PrettyHL a => PrettyHL b => PrettyHL c => IsQty q =>