The Biocaml Library : Biocaml_lines.of

let of_channel cin =

  let f _ =

    try Some (input_line cin |! Line.of_string_unsafe)

    with End_of_file -> None

  in Stream.from f