10 lines
210 B
OCaml
10 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
|