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