Fix a bug in parameter name hints (#15156)

Author: psfinaki

vsintegration/src/FSharp.Editor/Hints/InlineParameterNameHints.fs

@@ -123,7 +123,7 @@ type InlineParameterNameHints(parseResults: FSharpParseFileResults) =
             let curryRanges = getCurryRanges symbolUse
 
             let ranges =
-                if Seq.isEmpty tupleRanges then
+                if symbol.IsFunction || Seq.isEmpty tupleRanges then
                     curryRanges |> List.toSeq
                 else
                     tupleRanges

vsintegration/tests/FSharp.Editor.Tests/Hints/InlineParameterNameHintTests.fs

@@ -4,6 +4,7 @@ namespace FSharp.Editor.Tests.Hints
 
 open Xunit
 open HintTestFramework
+open FSharp.Test
 
 module InlineParameterNameHintTests =
 
@@ -599,3 +600,42 @@ None
         let actual = getParameterNameHints document
 
         Assert.Equal(expected, actual)
+
+    [<Fact>]
+    let ``Hints are shown correctly in type constructors mixed with functions`` () =
+        let code =
+            """
+type X = | X of a: int list * b: string
+
+let x = X(List.map id [ 42 ], "")
+        """
+
+        let document = getFsDocument code
+
+        let expected =
+            [
+                {
+                    Content = "a = "
+                    Location = (3, 11)
+                    Tooltip = "field a"
+                }
+                {
+                    Content = "mapping = "
+                    Location = (3, 20)
+                    Tooltip = "parameter mapping"
+                }
+                {
+                    Content = "list = "
+                    Location = (3, 23)
+                    Tooltip = "parameter list"
+                }
+                {
+                    Content = "b = "
+                    Location = (3, 31)
+                    Tooltip = "field b"
+                }
+            ]
+
+        let actual = getParameterNameHints document
+
+        actual |> Assert.shouldBeEquivalentTo expected