jutty/tori-rs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

OCaml: Apply formatting

Browse source
This commit is contained in:
Juno Takano 2025-04-19 19:09:16 -03:00
commit bb1cd19000
12 changed files with 145 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

26
ocaml/lib/parsers/argument.ml
View file

@ -1,9 +1,11 @@
let interpret (past: Schema.schema) (input: string list): Schema.schema =
let interpret (past : Schema.schema) (input : string list) : Schema.schema =
let future : Schema.schema =
{ past with output = { past.output with main = "" } }
in
let future: Schema.schema = { past with output = { past.output with main = "" } } in
let say (message: string): Schema.schema =
{ future with output = { future.output with main = message }} in
let say (message : string) : Schema.schema =
{ future with output = { future.output with main = message } }
in
(*
TODO: return a schema with orders, instead of calling side-effects
@ -18,12 +20,14 @@ let interpret (past: Schema.schema) (input: string list): Schema.schema =
say (Schema.format_version future.meta.version)
| ("help" | "-h" | "--help") :: _ -> say future.meta.help.long
| head :: _ ->
{ future with
output = {
future.output with main =
("Unrecognized command: " ^ head ^ "\n"
^ future.meta.help.short)
{
future with
output =
{
future.output with
main =
"Unrecognized command: " ^ head ^ "\n" ^ future.meta.help.short;
};
meta = { future.meta with status = 1 };
meta = { future.meta with status = 1 };
}
| _ -> future