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

fix some parenthesisation

Browse source
This commit is contained in:
rhiannon morris 2023-11-06 22:11:11 +01:00
parent 50984aa1aa
commit cc78ccd940
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

@ -431,7 +431,7 @@ prettyTerm dnames tnames (Eq (S _ (N ty)) l r _) =
pure $ sep [l <++> !eqndD, r <++> !colonD, ty]
prettyTerm dnames tnames (Eq ty l r _) =
parensIfM Arg =<< do
parensIfM App =<< do
ty <- prettyTypeLine dnames tnames ty
l <- withPrec Arg $ prettyTerm dnames tnames l
r <- withPrec Arg $ prettyTerm dnames tnames r
@ -443,6 +443,7 @@ prettyTerm dnames tnames s@(DLam {}) =
prettyTerm dnames tnames (NAT _) = natD
prettyTerm dnames tnames (Nat n _) = hl Syntax $ pshow n
prettyTerm dnames tnames (Succ p _) =
parensIfM App =<<
prettyAppD !succD [!(withPrec Arg $ prettyTerm dnames tnames p)]
prettyTerm dnames tnames (STRING _) = stringD