A few fsharp-analyzers suggestions

Numpsy · Aug 23, 2024 · 417a09e · 417a09e
1 parent a7d2f85
commit 417a09e
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Expecto/Expecto.Impl.fs b/Expecto/Expecto.Impl.fs
@@ -960,7 +960,7 @@ module Impl =
     else
       let nestedFunc =
         t.GetTypeInfo().GetFields()
-        |> Seq.tryFind (fun f -> isFsharpFuncType f.FieldType)
+        |> Array.tryFind (fun f -> isFsharpFuncType f.FieldType)
       match nestedFunc with
       | Some f -> f.GetValue(testFunc).GetType()
       | None -> t
@@ -969,7 +969,7 @@ module Impl =
     match testCode with
     | Sync test ->
       let t = getFuncTypeToUse test asm
-      let m = t.GetTypeInfo().GetMethods () |> Seq.find (fun m -> (m.Name = "Invoke") && (m.DeclaringType = t))
+      let m = t.GetTypeInfo().GetMethods () |> Array.find (fun m -> (m.Name = "Invoke") && (m.DeclaringType = t))
       (t.FullName, m.Name)
     | SyncWithCancel _ ->
       ("Unknown SyncWithCancel", "Unknown SyncWithCancel")

diff --git a/Expecto/Expecto.fs b/Expecto/Expecto.fs
@@ -543,7 +543,7 @@ module Tests =
       match Args.parseOptions options args with
       | Ok cliArguments ->
           let config =
-            Seq.fold (fun s a -> foldCLIArgumentToConfig a s) baseConfig cliArguments
+            List.fold (fun s a -> foldCLIArgumentToConfig a s) baseConfig cliArguments
           if List.exists(function List_Tests _ -> true | _ -> false) cliArguments then
             ArgsList config
           elif List.contains Version cliArguments then