IterateeZMonad.scala

import scalaz._
import Scalaz._

import akka.actor.IO._

object IterateeZMonad {
  implicit def iterateeZMonad[A] = new Monad[Iteratee] {

    override def map[A, B](fa: Iteratee[A])(f: A ⇒ B): Iteratee[B] = fa map f

    def point[A](a: ⇒ A): Iteratee[A] = Done[A](a)

    def bind[A, B](fa: Iteratee[A])(f: (A) ⇒ Iteratee[B]): Iteratee[B] = fa flatMap f
  }
}