Scalaz iteratee, BufferedReader의 열거 자 생성

Question

BufferedReader의 열거자를 어떻게 만들 수 있습니까?

는 차라리 옛날 기사를 발견 http://apocalisp.wordpress.com/2010/10/17/scalaz-tutorial-enumeration-based-io-with-iteratees/하고 여기에서 예를 기반 열거를 만들려고 Scalaz 6.0.4로

작동하지 않는 것 같습니다 : Idiomatic construction to check whether a collection is ordered

implicit val ListEnumerator = new Enumerator[List] { 
    def apply[E, A](e: List[E], i: IterV[E, A]): IterV[E, A] = e match { 
     case List() => i 
     case x :: xs => i.fold(done = (_, _) => i, 
         cont = k => apply(xs, k(El(x)))) 
    } 
} 

을하지만 IO 모나드와 열거 자의 결합 방법을 이해할 수 없다.

Answer 1

Rúnar의 기사에 어떤 문제가 있습니까? 다음 버전이 나를 위해 일하고있다. (Scalaz 6.0.4) :

object FileIteratee { 
    def enumReader[A](r: BufferedReader, it: IterV[String, A]) : IO[IterV[String, A]] = { 
    def loop: IterV[String, A] => IO[IterV[String, A]] = { 
     case i@Done(_, _) => i.pure[IO] 
     case i@Cont(k) => for { 
     s <- r.readLine.pure[IO] 
     a <- if (s == null) i.pure[IO] else loop(k(El(s))) 
     } yield a 
    } 
    loop(it) 
    } 

    def bufferFile(f: File) = new BufferedReader(new FileReader(f)).pure[IO] 

    def closeReader(r: Reader) = r.close().pure[IO] 

    def bracket[A,B,C](init: IO[A], fin: A => IO[B], body: A => IO[C]): IO[C] = 
    for { 
     a <- init 
     c <- body(a) 
     _ <- fin(a) 
    } yield c 

    def enumFile[A](f: File, i: IterV[String, A]) : IO[IterV[String, A]] = 
    bracket(bufferFile(f), 
      closeReader(_: BufferedReader), 
      enumReader(_: BufferedReader, i)) 
}