)
end
-module Directory : sig
+module Directory_tree : sig
val find_files : string -> string Stream.t
end = struct
let find_files root =
let paths =
match input with
| Paths_on_stdin -> In_channel.lines stdin
- | Root_path root -> Directory.find_files root
+ | Root_path root -> Directory_tree.find_files root
in
let paths_by_digest = Hashtbl.create 1_000_000 in
let path_count = ref 0 in
let () =
let input = ref Paths_on_stdin in
- Arg.parse [] (fun path ->
- if Sys.file_exists path then
- input := Root_path path
- else begin
- eprintf "File does not exist: %S\n%!" path;
- exit 1
- end
- ) "";
+ Arg.parse
+ []
+ (function
+ | path when Sys.file_exists path ->
+ input := Root_path path
+ | path ->
+ eprintf "File does not exist: %S\n%!" path;
+ exit 1
+ )
+ "";
main !input