From 465ed3749447433f9530c1d5884d97aba183fd3d Mon Sep 17 00:00:00 2001 From: Pau Ruiz Safont Date: Tue, 15 Sep 2020 13:40:57 +0100 Subject: ocaml: follow upstream for highlights --- queries/ocaml/highlights.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/queries/ocaml/highlights.scm b/queries/ocaml/highlights.scm index e5ee92e1..6c921317 100644 --- a/queries/ocaml/highlights.scm +++ b/queries/ocaml/highlights.scm @@ -40,9 +40,8 @@ (let_binding pattern: (value_pattern) @variable) (let_binding pattern: (tuple_pattern (value_pattern) @variable)) -(let_binding (parameter (label_name) @parameter)) -(let_binding (parameter (value_pattern) @parameter)) -(let_binding (parameter (typed_pattern (value_pattern) @parameter))) +(value_pattern) @parameter +(parameter (label_name) @parameter) (function_type (typed_label (label_name) @parameter)) ; Application @@ -76,7 +75,7 @@ (boolean) @constant -(number) @number +[(number) (signed_number)] @number [(string) (character)] @string @@ -106,6 +105,8 @@ (infix_operator ["&" "+" "-" "=" ">" "|" "%"] @operator) +(signed_number ["+" "-"] @operator) + ["*" "#" "::" "<-"] @operator ; Keywords @@ -126,6 +127,7 @@ ["include" "open"] @include ["for" "to" "downto" "while" "do" "done"] @repeat + ; Punctuation ;------------ @@ -144,7 +146,7 @@ (object_type ["<" ">"] @punctuation.bracket) [ - "," "." ";" ":" "=" "|" "~" "?" "!" ">" "&" + "," "." ";" ":" "=" "|" "~" "?" "+" "-" "!" ">" "&" "->" ";;" ":>" "+=" ":=" ".." ] @punctuation.delimiter -- cgit v1.2.3