7 lines
139 B
OCaml
7 lines
139 B
OCaml
|
let read_file filename =
|
||
|
|
let ch = open_in filename in
|
||
|
|
let s = really_input_string ch (in_channel_length ch) in
|
||
|
|
close_in ch;
|
||
|
|
s
|
||
|
|
;;
|