Merge pull request #221 from fsprojects/co-maintainer/mergeall-accept-seq-9921c501a078d92a

[Auto Maintainer Assistant] Allow AsyncSeq.mergeAll to accept seq instead of list

Author: dsyme

src/FSharp.Control.AsyncSeq/AsyncSeq.fs

@@ -1700,8 +1700,9 @@ module AsyncSeq =
 
   /// Merges all specified async sequences into an async sequence non-deterministically.
   // By moving the last emitted task to the end of the array, this algorithm achieves max-min fairness when merging AsyncSeqs
-  let mergeAll (ss:AsyncSeq<'T> list) : AsyncSeq<'T> =
+  let mergeAll (ss:seq<AsyncSeq<'T>>) : AsyncSeq<'T> =
     asyncSeq {
+      let ss = Seq.toArray ss
       let n = ss.Length
 
       let moveToEnd i (a: 'a[]) =

src/FSharp.Control.AsyncSeq/AsyncSeq.fsi

@@ -502,7 +502,7 @@ module AsyncSeq =
 
     /// Merges all specified async sequences into an async sequence non-deterministically.
     /// The resulting async sequence produces elements when any argument sequence produces an element.
-    val mergeAll : sources:AsyncSeq<'T> list -> AsyncSeq<'T>
+    val mergeAll : sources:seq<AsyncSeq<'T>> -> AsyncSeq<'T>
     #endif
 
     /// Returns an async sequence which contains no contiguous duplicate elements based on the specified comparison function.