Source file `path.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type t = string

let concat = Filename.concat
let to_string t = t

let of_string path =
  match Filename.is_relative path with
  | false ->
    invalid_arg
      (Printf.sprintf
         "Path \"%s\" is absolute. All paths used with dune-action-plugin must be \
          relative."
         path)
  | true -> path
;;

module O = struct
  let ( ^/ ) = concat
end