pretty print E constructor as [brackets]

This commit is contained in:
rhiannon morris 2022-08-22 10:08:18 +02:00
parent 6dd18d89bd
commit 413c454898
1 changed files with 1 additions and 1 deletions

View File

@ -40,7 +40,7 @@ mutual
sep [!lamD, hl TVar !(prettyM x), !arrowD]
<//> !(under T x $ prettyM t)
prettyM (E e) =
prettyM e
pure $ hl Delim "[" <+> !(prettyM e) <+> hl Delim "]"
prettyM (CloT s th) =
parensIfM SApp . hang 2 =<<
[|withPrec SApp (prettyM s) </> prettyTSubst th|]