Avoid virtual calls. (fsprojects#2995)

dawedawe · Nov 21, 2023 · 9370dd6 · 9370dd6
1 parent 21bae08
commit 9370dd6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Fantomas.Core/Context.fs b/src/Fantomas.Core/Context.fs
@@ -258,7 +258,7 @@ let writerEvent (e: WriterEvent) (ctx: Context) : Context =
             WriterEvents = Queue.append ctx.WriterEvents evs
             WriterModel =
                 (ctx.WriterModel, evs)
-                ||> Seq.fold (fun m e -> WriterModel.update ctx.Config.MaxLineLength e m) }
+                ||> List.fold (fun m e -> WriterModel.update ctx.Config.MaxLineLength e m) }
 
     ctx'
 
@@ -430,7 +430,7 @@ let (+>) (ctx: Context -> Context) (f: _ -> Context) x =
     let y = ctx x
 
     match y.WriterModel.Mode with
-    | ShortExpression infos when infos |> Seq.exists (fun x -> x.ConfirmedMultiline) -> y
+    | ShortExpression infos when infos |> List.exists (fun x -> x.ConfirmedMultiline) -> y
     | _ -> f y
 
 let (!-) (str: string) = writerEvent (Write str)

diff --git a/src/Fantomas.Core/Defines.fs b/src/Fantomas.Core/Defines.fs
@@ -129,7 +129,7 @@ module private DefineCombinationSolver =
         let enforcedLit =
             cnf |> List.filter (fun t -> Set.count t = 1) |> List.collect Set.toList
 
-        if groupedLiterals enforcedLit |> Seq.exists (fun (_, g) -> List.length g > 1) then
+        if groupedLiterals enforcedLit |> List.exists (fun (_, g) -> List.length g > 1) then
             Unsatisfiable
         else
             let singletons, toSolve =