Handle patterns with |.

Author: cristianoc

analysis/src/ProcessCmt.ml

@@ -323,6 +323,7 @@ let rec forItem ~env ~(exported : exported) item =
         in
         declareds := {declared with item = MValue declared.item} :: !declareds
       | Tpat_tuple 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

@@ -8,6 +8,9 @@ module A = {
   let makeT = () => {name:"", age:0}
 
   let {name, age} = makeT()
+
+  let (a | a, b) = makeX()
+
 }
 
 let y = A.xxx
@@ -17,3 +20,6 @@ let z = A.yyy
 
 let n = A.name
 //         ^def
+
+let n = A.a
+//        ^def

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

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