Skip to content

Commit 779f9ae

Browse files
committed
Remove unused 'remove group' logic in groupBy
1 parent 9df32a2 commit 779f9ae

1 file changed

Lines changed: 1 addition & 2 deletions

File tree

src/FSharp.Control.AsyncSeq/AsyncSeq.fs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1664,10 +1664,9 @@ module AsyncSeq =
16641664
let groupByAsync (p:'a -> Async<'k>) (s:AsyncSeq<'a>) : AsyncSeq<'k * AsyncSeq<'a>> = asyncSeq {
16651665
let groups = Collections.Generic.Dictionary<'k, Group<'k, 'a>>()
16661666
let close group =
1667-
groups.Remove(group.key) |> ignore
16681667
AsyncSeqSrcImpl.close group.src
16691668
let closeGroups () =
1670-
groups.Values |> Seq.toArray |> Array.iter close
1669+
groups.Values |> Seq.iter close
16711670
use enum = s.GetEnumerator()
16721671
let rec go () = asyncSeq {
16731672
try

0 commit comments

Comments
 (0)