13 lines
445 B
OCaml
13 lines
445 B
OCaml
|
let uname =
|
||
|
|
let cmd = Bos.Cmd.(v "uname" % "-s") in
|
||
|
|
lazy (match Bos.OS.Cmd.(run_out cmd |> out_string |> success) with
|
||
|
|
| Ok s when s = "FreeBSD" -> `FreeBSD
|
||
|
|
| Ok s when s = "Linux" -> `Linux
|
||
|
|
| Ok s -> invalid_arg (Printf.sprintf "OS %s not supported" s)
|
||
|
|
| Error (`Msg m) -> invalid_arg m)
|
||
|
|
|
||
|
|
let default_datadir =
|
||
|
|
match Lazy.force uname with
|
||
|
|
| `FreeBSD -> "/var/db/builder-web"
|
||
|
|
| `Linux -> "/var/lib/builder-web"
|