feat(file): implement file reader

2 files changed, 7 insertions, 0 deletions

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
diff --git a/2025/ocaml/lib/infrastructure/file_reader.mli b/2025/ocaml/lib/infrastructure/file_reader.mli
new file mode 100644
index 0000000..bb40577
--- /dev/null
+++ b/2025/ocaml/lib/infrastructure/file_reader.mli
@@ -0,0 +1,3 @@
+val read_file : string -> string
+(** [read_file filename] is the contents of [filename] as a string.
+    The empty string is returned if [filename] does not exist. *)