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]
|
sep [!lamD, hl TVar !(prettyM x), !arrowD]
|
||||||
<//> !(under T x $ prettyM t)
|
<//> !(under T x $ prettyM t)
|
||||||
prettyM (E e) =
|
prettyM (E e) =
|
||||||
prettyM e
|
pure $ hl Delim "[" <+> !(prettyM e) <+> hl Delim "]"
|
||||||
prettyM (CloT s th) =
|
prettyM (CloT s th) =
|
||||||
parensIfM SApp . hang 2 =<<
|
parensIfM SApp . hang 2 =<<
|
||||||
[|withPrec SApp (prettyM s) </> prettyTSubst th|]
|
[|withPrec SApp (prettyM s) </> prettyTSubst th|]
|
||||||
|
|
Loading…
Reference in a new issue