use Queue.length instead Seq.length (#901)

fsprojects · Jun 8, 2020 · 62f46bf · 62f46bf
1 parent 1fa24a9
commit 62f46bf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Fantomas/Context.fs b/src/Fantomas/Context.fs
@@ -576,7 +576,7 @@ let internal leadingExpressionLong threshold leadingExpression continuationExpre
     continuationExpression (lineCountAfter > lineCountBefore || (columnAfter - columnBefore > threshold)) contextAfterLeading
 
 let internal leadingExpressionIsMultiline leadingExpression continuationExpression (ctx: Context) =
-    let eventCountBeforeExpression = Seq.length ctx.WriterEvents
+    let eventCountBeforeExpression = Queue.length ctx.WriterEvents
     let contextAfterLeading = leadingExpression ctx
     let hasWriteLineEventsAfterExpression = contextAfterLeading.WriterEvents |>Seq.skip eventCountBeforeExpression |> Seq.exists (function | WriteLine _ -> true | _ -> false)
     continuationExpression hasWriteLineEventsAfterExpression contextAfterLeading