highlight the @ in dim apps as a delim

This commit is contained in:
rhiannon morris 2023-11-05 15:44:44 +01:00
parent d9cdf1306d
commit 04af7ae942
2 changed files with 3 additions and 3 deletions

View file

@ -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)))