Sha256: cc13dde52a9a3aaf7c68653f85fefc580dce737ba7bf25d8e22f4851f0836442
Contents?: true
Size: 633 Bytes
Versions: 143
Compression:
Stored size: 633 Bytes
Contents
open Core.Std
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
143 entries across 143 versions & 1 rubygems