pretty print E constructor as [brackets]
This commit is contained in:
parent
6dd18d89bd
commit
413c454898
1 changed files with 1 additions and 1 deletions
|
@ -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|]
|
||||
|
|
Loading…
Reference in a new issue