Source file `Fpath_.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(*
   Extensions of the Fpath module which deals with file paths.
*)

module Operators = struct
  let ( // ) = Fpath.( // )
  let ( / ) = Fpath.( / )
  let ( !! ) = Fpath.to_string
end

let to_string_list paths = List.rev_map Fpath.to_string paths |> List.rev

let dirname path =
  let dir, _basename = Fpath.split_base path in
  Fpath.rem_empty_seg dir