Treat ocaml tags as atoms too

CHANGELOG.md

@@ -8,7 +8,7 @@ trimming rules.
 Fixed parsing of heredocs in shell scripts. They are now treated as
 string literals.
 
-Fixed parsing of type variables in OCaml.
+Fixed parsing of type variables and tags in OCaml.
 
 Improved language detection for files with bash/sh syntax.
 

sample_files/ocaml_after.ml

@@ -1,3 +1,8 @@
 type foo =
   | Bar
   | Biz of ('ex, 'en) list
+
+let do_stuff x =
+  match x with
+  | `Foo -> 1
+  | _ -> 3

sample_files/ocaml_before.ml

@@ -2,3 +2,9 @@ type foo =
   | Bar
   | Baz of int * ('ex, 'en) list
   | Biz of ('ex, 'en) list
+
+let do_stuff x =
+  match x with
+  | `Foo -> 1
+  | `Bar -> 2
+  | _ -> 3

src/tree_sitter_parser.rs

@@ -207,7 +207,7 @@ pub fn from_language(language: guess::Language) -> TreeSitterConfig {
         OCaml => TreeSitterConfig {
             name: "OCaml",
             language: unsafe { tree_sitter_ocaml() },
-            atom_nodes: (vec!["character", "string", "type_variable"])
+            atom_nodes: (vec!["character", "string", "tag", "type_variable"])
                 .into_iter()
                 .collect(),
             // TODO: begin/end and object/end.