make sure payloads (with any as placeholder) are printed for each constructor argument

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -1539,7 +1539,17 @@ let rec completeTypedValue t ~env ~full ~prefix ~expandOption =
              then None
              else
                Some
-                 (Completion.create ~name:constructor.cname.txt
+                 (Completion.create
+                    ~name:
+                      (constructor.cname.txt
+                      ^
+                      if constructor.args |> List.length > 0 then
+                        "("
+                        ^ (constructor.args
+                          |> List.map (fun _ -> "_")
+                          |> String.concat ", ")
+                        ^ ")"
+                      else "")
                     ~kind:(Constructor (constructor, "" (* TODO *)))
                     ~env))
     in

analysis/tests/src/CompletionFunctionArguments.res

@@ -30,7 +30,7 @@ let someOtherFn = (includeName, age) => {
 // let _ = someOtherFn(f)
 //                      ^com
 
-type someVariant = One | Two | Three(int)
+type someVariant = One | Two | Three(int, string)
 
 let someFnTakingVariant = (
   configOpt: option<someVariant>,

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

@@ -97,10 +97,10 @@ Completable: Value[someFnTakingVariant](~config)
     "detail": "Two\n\n",
     "documentation": null
   }, {
-    "label": "Three",
+    "label": "Three(_, _)",
     "kind": 4,
     "tags": [],
-    "detail": "Three(int)\n\n",
+    "detail": "Three(int, string)\n\n",
     "documentation": null
   }]