Sha256: 66e908fd85575d6be71e7de65fa32afaf98db5ae6d28153e305ee894484302a5
Contents?: true
Size: 629 Bytes
Versions: 219
Compression:
Stored size: 629 Bytes
Contents
open Core
let is_directory =
Command.Spec.Arg_type.create
(fun n ->
match Sys.is_directory n with
| `Yes -> n
| `No | `Unknown ->
eprintf "'%s' is not a regular folder.\n%!" n;
exit 1
)
let command =
Command.basic
~summary:"Reports errors in canonical data."
Command.Spec.(
empty
+> flag "-c" (optional_with_default "../../../x-common/exercises" is_directory) ~doc:"string Directory containing canonical data."
)
(fun canonical_data_folder () -> Controller.check_canonical_data canonical_data_folder)
let () =
Command.run ~version:"0.1" command
Version data entries
219 entries across 219 versions & 1 rubygems