tori/iganaq
tori/iganaq
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

OCaml: Refactor configuration parser handling of su_command sanity checks

Browse source
This commit is contained in:
Juno Takano 2025-05-16 02:52:09 -03:00
commit a3805ea1bd
3 changed files with 37 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -74,8 +74,14 @@ let string_of_key key =
| SuCommandQuoted -> "su_command_quoted"
| Unknown -> "<unknown key>"
let string_of_default_bool (b: default_bool) =
let string_of_default_bool (b: default_bool): string =
match b with
| true -> "true"
| false -> "false"
| Default -> "default"
let default_bool_of_string (s: string): default_bool =
match s with
| "true" -> true
| "false" -> false
| _ -> Default