Handle array patterns.

Author: cristianoc

analysis/src/ProcessCmt.ml

@@ -322,7 +322,8 @@ let rec forItem ~env ~(exported : exported) item =
             env.stamps.values
         in
         declareds := {declared with item = MValue declared.item} :: !declareds
-      | Tpat_tuple pats -> pats |> List.iter (fun p -> handlePattern [] p)
+      | Tpat_tuple pats | Tpat_array pats ->
+        pats |> List.iter (fun p -> handlePattern [] p)
       | Tpat_or (p, _, _) -> handlePattern [] p
       | Tpat_record (items, _) ->
         items |> List.iter (fun (_, _, p) -> handlePattern [] p)

analysis/tests/src/Patterns.res

@@ -11,6 +11,7 @@ module A = {
 
   let (a | a, b) = makeX()
 
+  let [v1,v2,v3] = [1,2,3]
 }
 
 let y = A.xxx
@@ -23,3 +24,6 @@ let n = A.name
 
 let n = A.a
 //        ^def
+
+let n = A.v1
+//        ^def

analysis/tests/src/expected/Patterns.res.txt

@@ -1,9 +1,12 @@
-Definition tests/src/Patterns.res 15:10
+Definition tests/src/Patterns.res 16:10
 {"uri": "Patterns.res", "range": {"start": {"line": 3, "character": 7}, "end": {"line": 3, "character": 10}}}
 
-Definition tests/src/Patterns.res 20:11
+Definition tests/src/Patterns.res 21:11
 {"uri": "Patterns.res", "range": {"start": {"line": 9, "character": 7}, "end": {"line": 9, "character": 11}}}
 
-Definition tests/src/Patterns.res 23:10
+Definition tests/src/Patterns.res 24:10
 {"uri": "Patterns.res", "range": {"start": {"line": 11, "character": 7}, "end": {"line": 11, "character": 8}}}
 
+Definition tests/src/Patterns.res 27:10
+{"uri": "Patterns.res", "range": {"start": {"line": 13, "character": 7}, "end": {"line": 13, "character": 9}}}
+