The Biocaml Library : Biocaml_lines.of_channel

let of_channel cin =

 let f _ =

  try Some (input_line cin |! Line.of_string_unsafe)

  with End_of_file -> None

 in Stream.from f