diff --git a/src/FSharpPlus/Data/ZipList.fs b/src/FSharpPlus/Data/ZipList.fs index e06b02f2e..c2610ebc3 100644 --- a/src/FSharpPlus/Data/ZipList.fs +++ b/src/FSharpPlus/Data/ZipList.fs @@ -5,10 +5,13 @@ open FSharpPlus /// A sequence with an Applicative functor based on zipping. -[] +[] type ZipList<'s> = ZipList of 's seq with member this.Item n = let (ZipList s) = this in Seq.item n s + interface System.Collections.Generic.IEnumerable<'s> with member x.GetEnumerator () = (let (ZipList x) = x in x).GetEnumerator () + interface System.Collections.IEnumerable with member x.GetEnumerator () = (let (ZipList x) = x in x).GetEnumerator () :> System.Collections.IEnumerator + /// Basic operations on ZipList [] module ZipList =