Stream A File Line By Line
let file_in_channel = Pervasives.open_in('file.txt');
let file_stream =
Stream.from(_i => {
switch(Pervasives.input_line(file_in_channel)) {
| line => Some(line)
| exception(End_of_file) => None
};
});
file_stream |> Stream.iter(line => do_something(line));Last updated