You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
444 B
20 lines
444 B
6 years ago
|
open Core;
|
||
|
|
|
||
|
|
let readdir = dir =>
|
||
|
|
switch (Sys.readdir(dir)) {
|
||
|
|
| x => Ok(x)
|
||
|
|
| exception (Sys_error(error)) => Error(error)
|
||
|
|
};
|
||
|
|
|
||
|
|
let writeFile = (path, contents) => {
|
||
|
|
let%lwt x = Lwt_unix.openfile(path, [Unix.O_RDWR, Unix.O_CREAT], 777);
|
||
|
|
let%lwt _ =
|
||
|
|
Lwt.finalize(
|
||
|
|
() => Lwt_unix.write_string(x, contents, 0, String.length(contents)),
|
||
|
|
() => Lwt_unix.close(x),
|
||
|
|
);
|
||
|
|
Lwt.return();
|
||
|
|
};
|
||
|
|
|
||
|
|
let realpath = Filename.realpath;
|