IndexerAccesorStyleConsistency: clearer violation text

Author: knocte

src/FSharpLint.Core/Rules/Conventions/IndexerAccessorStyleConsistency.fs

@@ -13,11 +13,11 @@ type Config = {
     Style: string
 }
 
-let generateOutput (range: FSharp.Compiler.Text.Range) =
+let generateOutput (range: FSharp.Compiler.Text.Range) msg =
     Array.singleton
         {
             Range = range
-            Message = Resources.GetString "RulesIndexerAccessorStyleConsistency"
+            Message = Resources.GetString msg
             SuggestedFix = None
             TypeChecks = List.Empty
         }
@@ -32,7 +32,7 @@ let runner (config: Config) (args: AstNodeRuleParams) =
                  SynExpr.App (ExprAtomicFlag.Atomic, _, SynExpr.Ident _, SynExpr.ArrayOrListComputed (_, expr, range), _), 
                  _, _, _)
                 ->
-                generateOutput range
+                generateOutput range "RulesIndexerAccessorStyleConsistencyToOCaml"
             | _ ->
                 Array.empty
         | _ -> 
@@ -43,7 +43,7 @@ let runner (config: Config) (args: AstNodeRuleParams) =
             match binding with
             | SynBinding (_, _, _, _, _, _, _, SynPat.Named _, _
                 , SynExpr.DotIndexedGet (_, _, _, range), _, _, _) ->
-                generateOutput range
+                generateOutput range "RulesIndexerAccessorStyleConsistencyToCSharp"
             | _ ->
                 Array.empty
         | _ -> 

src/FSharpLint.Core/Text.resx

@@ -186,9 +186,6 @@
   <data name="RulesAvoidTooShortNamesError" xml:space="preserve">
     <value>Consider using a longer name, as it is currently too short.</value>
   </data>
-  <data name="RulesIndexerAccessorStyleConsistency" xml:space="preserve">
-    <value>Consider switching the indexer accessor from OCaml style to CSharp style or viceversa.</value>
-  </data>
   <data name="RulesNamingConventionsPrefixError" xml:space="preserve">
     <value>Consider changing `{0}` to be prefixed with `{1}`.</value>
   </data>
@@ -387,4 +384,10 @@
   <data name="InterpolatedStringWithNoSubstitution" xml:space="preserve">
     <value>Do not use interpolated string syntax (with $ prefix) or formatting functions (sprintf, failwithf) when not really performing any interpolation.</value>
   </data>
+  <data name="RulesIndexerAccessorStyleConsistencyToCSharp" xml:space="preserve">
+    <value>Consider switching the indexer accessor to CSharp style.</value>
+  </data>
+  <data name="RulesIndexerAccessorStyleConsistencyToOCaml" xml:space="preserve">
+    <value>Consider switching the indexer accessor to OCaml style.</value>
+  </data>
 </root>