NestedFunctionNames,UnnestedFunctionNames: fix rules

Fix rules to only take into account function and method names.

Author: webwarrior-ws

src/FSharpLint.Core/Rules/Conventions/Naming/NestedFunctionNames.fs

@@ -8,10 +8,13 @@ open FSharpLint.Rules.Helper.Naming
 
 let private getIdentifiers (args: AstNodeRuleParams) =
     match args.AstNode with
-    | AstNode.Binding (SynBinding (_, _, _, _, _attributes, _, _, pattern, _, _, _, _, _)) ->
+    | AstNode.Binding (SynBinding (_, _, _, _, _attributes, _, valData, pattern, _, _, _, _, _)) ->
         if isNested args args.NodeIndex then
             let maxAccessibility = AccessControlLevel.Public
-            getPatternIdents maxAccessibility (fun _a11y innerPattern -> getFunctionIdents innerPattern) true pattern
+            match identifierTypeFromValData valData with
+            | Function | Member ->
+                getPatternIdents maxAccessibility (fun _a11y innerPattern -> getFunctionIdents innerPattern) true pattern
+            | _ -> Array.empty
         else
             Array.empty
     | _ -> Array.empty

src/FSharpLint.Core/Rules/Conventions/Naming/UnnestedFunctionNames.fs

@@ -8,12 +8,15 @@ open FSharpLint.Rules.Helper.Naming
 
 let private getIdentifiers (args: AstNodeRuleParams) =
     match args.AstNode with
-    | AstNode.Binding (SynBinding (_, _, _, _, _attributes, _, _, pattern, _, _, _, _,_)) ->
+    | AstNode.Binding (SynBinding (_, _, _, _, _attributes, _, valData, pattern, _, _, _, _,_)) ->
         if isNested args args.NodeIndex then
             Array.empty
         else
             let maxAccessibility = AccessControlLevel.Public
-            getPatternIdents maxAccessibility (fun _a11y innerPattern -> getFunctionIdents innerPattern) true pattern
+            match identifierTypeFromValData valData with
+            | Function | Member ->
+                getPatternIdents maxAccessibility (fun _a11y innerPattern -> getFunctionIdents innerPattern) true pattern
+            | _ -> Array.empty
     | _ -> Array.empty
 
 let rule config =