9 lines
210 B
OCaml
9 lines
210 B
OCaml
let config =
|
|
match Fpath.of_string "./" with
|
|
| Error (`Msg e) -> failwith e
|
|
| Ok v -> Some v
|
|
|
|
let data =
|
|
match Bos.OS.Dir.current () with
|
|
| Error (`Msg e) -> failwith e
|
|
| Ok current -> Some current
|