Treat attribute IDs in OCaml as atoms

Fixes #114
2022-01-27 20:25:17 +07:00 · 2022-01-27 20:25:17 +07:00 · 5cf143228f
parent bde1009825
commit 5cf143228f
4 changed files with 21 additions and 1 deletions
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@ -1,5 +1,9 @@
 ## 0.18 (unreleased)

+### Parsing
+
+Fixed an issue with missing positions in OCaml attribute syntax.
+
 ### Display

 Fixed display issues where lines were printed more than once.
--- a/sample_files/ocaml_after.ml
+++ b/sample_files/ocaml_after.ml
@ -12,3 +12,9 @@ let do_stuff x =

 let stuffs y =
  y + 1
+
+type thing =
+  | X [@visitor.opaque]
+  | Y
+[@@visitor.opaque]
+
--- a/sample_files/ocaml_before.ml
+++ b/sample_files/ocaml_before.ml
@ -14,3 +14,7 @@ let do_stuff x =

 let stuffs y =
  y + 1
+
+type thing =
+  | X
+  | Y
--- a/src/tree_sitter_parser.rs
+++ b/src/tree_sitter_parser.rs
@ -68,7 +68,13 @@ extern "C" {
 }

 // TODO: begin/end and object/end.
-const OCAML_ATOM_NODES: [&str; 4] = ["character", "string", "tag", "type_variable"];
+const OCAML_ATOM_NODES: [&str; 5] = [
+    "character",
+    "string",
+    "tag",
+    "type_variable",
+    "attribute_id",
+];

 pub fn from_language(language: guess::Language) -> TreeSitterConfig {
    use guess::Language::*;