Handle lazy pattern.

Author: cristianoc

analysis/src/ProcessCmt.ml

@@ -327,6 +327,7 @@ let rec forItem ~env ~(exported : exported) item =
       | Tpat_or (p, _, _) -> handlePattern [] p
       | Tpat_record (items, _) ->
         items |> List.iter (fun (_, _, p) -> handlePattern [] p)
+      | Tpat_lazy p -> handlePattern [] p
       | _ -> ()
     in
     List.iter

analysis/tests/src/Patterns.res

@@ -12,6 +12,8 @@ module A = {
   let (a | a, b) = makeX()
 
   let [v1,v2,v3] = [1,2,3]
+
+  let lazy lazyy = lazy 3
 }
 
 let y = A.xxx
@@ -27,3 +29,6 @@ let n = A.a
 
 let n = A.v1
 //        ^def
+
+let n = A.lazyy
+//        ^def

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

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