Add status code to spec and use it on every exit

This commit is contained in:
Juno Takano 2025-04-13 16:38:25 -03:00
commit 95277a6b65
3 changed files with 12 additions and 4 deletions

View file

@ -2,7 +2,7 @@ open Qol
type version = { major: int; minor: int; patch: int }
type help = { short: string; long: string }
type meta = { version: version; help: help }
type meta = { version: version; help: help; status: int }
type output = { message: string; }
@ -22,6 +22,7 @@ let seed: schema = {
short = "<short help>";
long = "<long help>";
};
status = 0;
};
output = {
message = "";