highlight the @ in dim apps as a delim
This commit is contained in:
parent
d9cdf1306d
commit
04af7ae942
2 changed files with 3 additions and 3 deletions
|
@ -201,8 +201,7 @@ prettyTArg dnames tnames s =
|
|||
|
||||
private
|
||||
prettyDArg : {opts : _} -> BContext d -> Dim d -> Eff Pretty (Doc opts)
|
||||
prettyDArg dnames p =
|
||||
map (text "@" <+>) $ withPrec Arg $ prettyDim dnames p
|
||||
prettyDArg dnames p = [|atD <+> withPrec Arg (prettyDim dnames p)|]
|
||||
|
||||
private
|
||||
splitApps : Elim d n -> (Elim d n, List (Either (Dim d) (Term d n)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue