Fix iteration of collector

fsprojects · Jan 20, 2024 · 8375be0 · 8375be0
1 parent 49730b1
commit 8375be0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/FSharpPlus/Data/DList.fs b/src/FSharpPlus/Data/DList.fs
@@ -271,7 +271,7 @@ module DList =
         DList<'T>.foldBack List.cons source []
     #else
         let mutable coll = new ListCollector<_> ()
-        iter coll.Add source
+        iter (fun x -> coll.Add x) source
         coll.Close ()
     #endif
 
@@ -281,7 +281,7 @@ module DList =
         source :> seq<'T> |> Seq.toArray
     #else
         let mutable coll = new ArrayCollector<_> ()
-        iter coll.Add source
+        iter (fun x -> coll.Add x) source
         coll.Close ()
     #endif