tori/iganaq
tori/iganaq
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

16
ocaml/lib/schema/schema.ml
View file

@ -1,17 +1,17 @@
open Utilities.Aliases
type version = { major: int; minor: int; patch: int }
type help = { short: string; long: string }
type meta = { version: version; help: help; status: int }
type version = { major : int; minor : int; patch : int }
type help = { short : string; long : string }
type meta = { version : version; help : help; status : int }
type output = { main: string; log: string }
type output = { main : string; log : string }
type os = Unknown | FreeBSD | Void | Alpine
type host = { os: os; name: string }
type host = { os : os; name : string }
type schema = { meta: meta; output: output; host: host }
type schema = { meta : meta; output : output; host : host }
let seed: schema = {
let seed : schema = {
meta = {
version = {
major = 0;
@ -36,7 +36,7 @@ let seed: schema = {
};
}
let format_version (version: version): string =
let format_version (version : version) : string =
"v" ^ str_int version.major ^
"." ^ str_int version.minor ^
"." ^ str_int version.patch