Corrected order of operations in EnumerateeT.perform

scalaz · Feb 17, 2012 · 56d88b1 · 56d88b1
1 parent 38c7462
commit 56d88b1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/iteratee/src/main/scala/scalaz/iteratee/EnumeratorT.scala b/iteratee/src/main/scala/scalaz/iteratee/EnumeratorT.scala
@@ -144,7 +144,7 @@ trait EnumeratorTFunctions {
    */
   def perform[X, E, F[_]: Monad, B](f: F[B]): EnumeratorT[X, E, F] = 
     new EnumeratorT[X, E, F] { 
-      def apply[A] = s => iterateeT(Monad[F].bind(s.pointI.value) { step => Monad[F].map(f)(_ => step) })
+      def apply[A] = s => iterateeT(Monad[F].bind(f) { _ => s.pointI.value })
     }
 
   def enumOne[X, E, F[_]: Pointed](e: E): EnumeratorT[X, E, F] =