Remove Path.drop_prefix

not used anywhere
This commit is contained in:
Rudi Grinberg 2018-05-04 14:01:16 +07:00
parent 5ac3acf195
commit 65385bbaa4
2 changed files with 0 additions and 17 deletions

View File

@ -502,12 +502,3 @@ let extension = Filename.extension
let pp ppf t = Format.pp_print_string ppf (to_string t)
let drop_prefix t ~prefix =
let t = to_string t in
let prefix =
to_string (
if String.is_suffix prefix ~suffix:"/" then
prefix
else
prefix ^ "/") in
String.drop_prefix t ~prefix

View File

@ -137,14 +137,6 @@ val change_extension : ext:string -> t -> t
val extension : t -> string
(** maintains the invariant:
{[
let suffix = Option.value_exn (Path.drop_prefix t ~prefix) in
Path.relative prefix suffix = t
]}
*)
val drop_prefix : t -> prefix:t -> string option
val pp : Format.formatter -> t -> unit
val build_dir_exists : unit -> bool