Handle record patterns.

Author: cristianoc

analysis/src/ProcessCmt.ml

@@ -322,6 +322,8 @@ let rec forItem ~env ~(exported : exported) item =
         in
         [{declared with item = MValue declared.item}]
       | Tpat_tuple pats -> pats |> List.map (handlePattern []) |> List.flatten
+      | Tpat_record (items, _) ->
+        items |> List.map (fun (_, _, p) -> handlePattern [] p) |> List.flatten
       | _ -> []
     in
     List.map

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

@@ -2,5 +2,5 @@ Definition tests/src/Patterns.res 12:10
 {"uri": "Patterns.res", "range": {"start": {"line": 3, "character": 7}, "end": {"line": 3, "character": 10}}}
 
 Definition tests/src/Patterns.res 17:11
-null
+{"uri": "Patterns.res", "range": {"start": {"line": 9, "character": 7}, "end": {"line": 9, "character": 11}}}