From ca7631ff2fdc6d783f1ae8043de95dcd1b6b7d08 Mon Sep 17 00:00:00 2001 From: DJ O'Leary Date: Mon, 1 Dec 2025 22:52:12 +0100 Subject: feat(file): implement file reader --- 2025/ocaml/lib/infrastructure/file_reader.ml | 4 ++++ 1 file changed, 4 insertions(+) create mode 100644 2025/ocaml/lib/infrastructure/file_reader.ml (limited to '2025/ocaml/lib/infrastructure/file_reader.ml') diff --git a/2025/ocaml/lib/infrastructure/file_reader.ml b/2025/ocaml/lib/infrastructure/file_reader.ml new file mode 100644 index 0000000..7a80c0b --- /dev/null +++ b/2025/ocaml/lib/infrastructure/file_reader.ml @@ -0,0 +1,4 @@ +let read_file filename = + let chan = In_channel.open_text filename in + let content = In_channel.input_all chan in + In_channel.close chan ; content -- cgit v1.2.3