SuggestUseAutoProperty: implement fix suggestion

Implement quick fix suggestion for the rule.
webwarrior-ws · Dec 6, 2023 · a283f2b · a283f2b
1 parent 6e30839
commit a283f2b
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/src/FSharpLint.Core/Rules/Conventions/SuggestUseAutoProperty.fs b/src/FSharpLint.Core/Rules/Conventions/SuggestUseAutoProperty.fs
@@ -58,8 +58,8 @@ let private runner (args: AstNodeRuleParams) =
                             false,
                             _attributes,
                             _xmlDoc,
-                            SynValData(Some(memberFlags), _, _),
-                            SynPat.LongIdent (_, _, _, argPats, _, _),
+                            SynValData (Some memberFlags, _, _),
+                            SynPat.LongIdent (memberIdentifier, _, _, argPats, _, _),
                             _returnInfo,
                             expr,
                             _bindingRange,
@@ -72,9 +72,19 @@ let private runner (args: AstNodeRuleParams) =
         | _, SynArgPats.Pats pats when pats.Length > 0 -> // non-property member
             Array.empty
         | expression, _ when isImmutableValueExpression args expression ->
+            let suggestedFix =
+                lazy
+                    (match memberIdentifier.Lid with
+                     | [ _; memberName ] ->
+                         Some
+                             { FromText = args.FileContent
+                               FromRange = memberIdentifier.Range
+                               ToText = "val " + memberName.idText }
+                     | _ -> None)
+
             { Range = memberRange
               Message = Resources.GetString "RulesSuggestUseAutoProperty"
-              SuggestedFix = None
+              SuggestedFix = Some suggestedFix
               TypeChecks = List.Empty }
             |> Array.singleton
         | _ -> Array.empty