diff options
Diffstat (limited to '2025/ocaml/lib/infrastructure')
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/file.ml (renamed from 2025/ocaml/lib/infrastructure/file_reader.ml) | 2 | ||||
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/file.mli | 3 | ||||
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/file_reader.mli | 3 |
3 files changed, 4 insertions, 4 deletions
diff --git a/2025/ocaml/lib/infrastructure/file_reader.ml b/2025/ocaml/lib/infrastructure/file.ml index 7a80c0b..3b49c01 100644 --- a/2025/ocaml/lib/infrastructure/file_reader.ml +++ b/2025/ocaml/lib/infrastructure/file.ml @@ -1,4 +1,4 @@ -let read_file filename = +let read 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.mli b/2025/ocaml/lib/infrastructure/file.mli new file mode 100644 index 0000000..17d4495 --- /dev/null +++ b/2025/ocaml/lib/infrastructure/file.mli @@ -0,0 +1,3 @@ +val read : string -> string +(** [read filename] is the contents of [filename] as a string. + The empty string is returned if [filename] does not exist. *) diff --git a/2025/ocaml/lib/infrastructure/file_reader.mli b/2025/ocaml/lib/infrastructure/file_reader.mli deleted file mode 100644 index bb40577..0000000 --- a/2025/ocaml/lib/infrastructure/file_reader.mli +++ /dev/null @@ -1,3 +0,0 @@ -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. *) |