wip

JetBrains · Aug 30, 2022 · d8cfae9 · d8cfae9
1 parent ef2d673
commit d8cfae9
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/ReSharper.FSharp/src/FSharp.Psi/src/Resolve/FSharpParameterUtil.cs b/ReSharper.FSharp/src/FSharp.Psi/src/Resolve/FSharpParameterUtil.cs
@@ -145,5 +145,19 @@ public static IEnumerable<IEnumerable<string>> GetParameterNames(this ITypeUsage
         ITupleTypeUsage tuplePat => tuplePat.Items.SelectMany(GetParameterNames),
         _ => EmptyList<IEnumerable<string>>.Enumerable
       };
+
+    public static IReadOnlyList<IReadOnlyList<string>> GetParametersGroups(this IBinding binding)
+    {
+      var parameters = binding.ParameterPatterns.Select(GetParameterNames);
+      var bodyExpr = binding.Expression;
+
+      while (bodyExpr.IgnoreInnerParens() is ILambdaExpr lambdaExpr)
+      {
+        parameters = parameters.Union(lambdaExpr.Patterns.Select(GetParameterNames));
+        bodyExpr = lambdaExpr.Expression;
+      }
+
+      return parameters.Select(t => t.ToIReadOnlyList()).ToIReadOnlyList();
+    }
   }
 }