Fix SelfCheck CI step

Author: knocte

src/FSharpLint.Core/Framework/ParseFile.fs

@@ -57,7 +57,7 @@ module ParseFile =
     let getProjectOptionsFromScript (checker:FSharpChecker) file (source:string) = async {
         let sourceText = SourceText.ofString source
         let assumeDotNetFramework = false
-        let otherOpts = [| "--targetprofile:netstandard" |]
+        let otherOpts = Array.singleton "--targetprofile:netstandard"
 
         let! options, _diagnostics =
             checker.GetProjectOptionsFromScript(file, sourceText, assumeDotNetFramework = assumeDotNetFramework, useSdkRefs = not assumeDotNetFramework, otherFlags = otherOpts)

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

@@ -11,11 +11,11 @@ open System
 let runner args =
     let generateViolation range =
         let msg = Resources.GetString "RulesFavourSingleton"
-        { Range = range
-          Message = msg
-          SuggestedFix = None
-          TypeChecks = List.Empty }
-        |> Array.singleton
+        Array.singleton
+            { Range = range
+              Message = msg
+              SuggestedFix = None
+              TypeChecks = List.Empty }
     match args.AstNode with
     | AstNode.Binding(SynBinding(_, _, _, _, _, _, _, _, _, expression, _, _, _)) ->
         match expression with
@@ -29,9 +29,9 @@ let runner args =
         | _ -> Array.empty
     | _ -> Array.empty
 let rule =
-    { Name = "FavourSingleton"
-      Identifier = Identifiers.FavourSingleton
-      RuleConfig =
-        { AstNodeRuleConfig.Runner = runner
-          Cleanup = ignore } }
-    |> AstNodeRule
+    AstNodeRule
+        { Name = "FavourSingleton"
+          Identifier = Identifiers.FavourSingleton
+          RuleConfig =
+              { AstNodeRuleConfig.Runner = runner
+                Cleanup = ignore } }

tests/FSharpLint.Core.Tests/Rules/Conventions/FavourSingleton.fs

@@ -42,22 +42,22 @@ let foo = [ bar; false; true ]"""
         this.AssertNoWarnings()
 
     [<Test>]
-    member this.ListWithManyItemsShouldNotProduceError_Arrays() =
+    member this.ArrayWithManyItemsShouldNotProduceError() =
         this.Parse """
 let foo = [| 10; 20 |]"""
 
         Assert.IsTrue this.NoErrorsExist
 
     [<Test>]
-    member this.ListWithASingleConstantShouldProduceError_Arrays() =
+    member this.ArrayWithASingleConstantShouldProduceError() =
         this.Parse """
 let foo = [| 10 |]"""
 
         Assert.IsTrue this.ErrorsExist
         Assert.IsTrue(this.ErrorExistsAt(2, 13))
 
     [<Test>]
-    member this.ListWithASingleIdentShouldProduceError_Arrays() =
+    member this.ArrayWithASingleIdentShouldProduceError() =
         this.Parse """
 let bar = true
 let foo = [| bar |]"""
@@ -66,7 +66,7 @@ let foo = [| bar |]"""
         Assert.IsTrue(this.ErrorExistsAt(3, 10))
 
     [<Test>]
-    member this.ListWithMultipleIdentsShouldNotProduceError_Arrays() =
+    member this.ArrayWithMultipleIdentsShouldNotProduceError() =
         this.Parse """
 let bar = true
 let foo = [| bar; false; true |]"""