fix nested record

Author: zth

analysis/src/CompletionFrontEnd.ml

@@ -129,7 +129,7 @@ let findJsxPropsCompletable ~jsxProps ~endPos ~posBeforeCursor
                    Utils.flattenLongIdent ~jsx:true jsxProps.compName.txt;
                  prefix;
                  propName = prop.name;
-                 nested;
+                 nested = List.rev nested;
                })
         | _ -> None
       else if prop.exp.pexp_loc |> Loc.end_ = (Location.none |> Loc.end_) then
@@ -237,7 +237,7 @@ let findArgCompletables ~(args : arg list) ~endPos ~posBeforeCursor
                  functionContextPath = contextPath;
                  argumentLabel = Labelled labelled.name;
                  prefix;
-                 nested;
+                 nested = List.rev nested;
                })
       else if isExprHole exp then
         Some
@@ -266,7 +266,7 @@ let findArgCompletables ~(args : arg list) ~endPos ~posBeforeCursor
                  argumentLabel =
                    Unlabelled {argumentPosition = !unlabelledCount};
                  prefix;
-                 nested;
+                 nested = List.rev nested;
                })
       else if isExprHole exp then
         Some

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

@@ -172,42 +172,6 @@ Completable: Cargument Value[fnTakingRecord]($0)->recordField(nested)
 Complete src/CompletionExpressions.res 44:46
 posCursor:[44:46] posNoWhite:[44:45] Found expr:[44:11->44:49]
 Pexp_apply ...[44:11->44:25] (...[44:26->44:48])
-Completable: Cargument Value[fnTakingRecord]($0)->recordBody, recordField(nested)
-[{
-    "label": "age",
-    "kind": 5,
-    "tags": [],
-    "detail": "age: int\n\nsomeRecord",
-    "documentation": null
-  }, {
-    "label": "offline",
-    "kind": 5,
-    "tags": [],
-    "detail": "offline: bool\n\nsomeRecord",
-    "documentation": null
-  }, {
-    "label": "online",
-    "kind": 5,
-    "tags": [],
-    "detail": "online: option<bool>\n\nsomeRecord",
-    "documentation": null
-  }, {
-    "label": "variant",
-    "kind": 5,
-    "tags": [],
-    "detail": "variant: someVariant\n\nsomeRecord",
-    "documentation": null
-  }, {
-    "label": "polyvariant",
-    "kind": 5,
-    "tags": [],
-    "detail": "polyvariant: somePolyVariant\n\nsomeRecord",
-    "documentation": null
-  }, {
-    "label": "nested",
-    "kind": 5,
-    "tags": [],
-    "detail": "nested: option<otherRecord>\n\nsomeRecord",
-    "documentation": null
-  }]
+Completable: Cargument Value[fnTakingRecord]($0)->recordField(nested), recordBody
+[]