Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (12 sloc) 312 Bytes
let run = () => {
let currentDir = Unix.opendir(Unix.getcwd());
let break = ref(false);
while (! break^) {
switch (Unix.readdir(currentDir)) {
| exception End_of_file => break := true
| item => print_endline(item);
}
};
Unix.closedir(currentDir);
};
run();