Remove unused functions from odoc_odoc.Fs

Author: Julow

src/odoc/fs.ml

@@ -55,7 +55,6 @@ module File = struct
     | Ok psuf -> Fpath.(normalize @@ (directory // psuf))
 
   let to_string = Fpath.to_string
-  let segs = Fpath.segs
 
   let of_string s =
     match Fpath.of_string s with
@@ -124,16 +123,6 @@ module File = struct
     | [] -> invalid_arg "Fs.File.of_segs"
     | "" :: rest -> of_segs_tl (Fpath.v "/") rest
     | first :: rest -> of_segs_tl (Fpath.v first) rest
-
-  let append_segs path segs = of_segs_tl path segs
-
-  module Table = Hashtbl.Make (struct
-    type nonrec t = t
-
-    let equal = Fpath.equal
-
-    let hash = Hashtbl.hash
-  end)
 end
 
 module Directory = struct
@@ -145,20 +134,6 @@ module Directory = struct
 
   let append = Fpath.append
 
-  let make_path p name =
-    match Fpath.of_string name with
-    | Error _ as e -> e
-    | Ok psuf -> Ok Fpath.(normalize @@ to_dir_path @@ (p // psuf))
-
-  let reach_from ~dir path =
-    match make_path dir path with
-    | Error (`Msg e) -> invalid_arg ("Odoc.Fs.Directory.create: " ^ e)
-    | Ok path ->
-        let pstr = Fpath.to_string path in
-        if Sys.file_exists pstr && not (Sys.is_directory pstr) then
-          invalid_arg "Odoc.Fs.Directory.create: not a directory";
-        path
-
   let contains ~parentdir f = Fpath.is_rooted ~root:parentdir f
 
   let compare = Fpath.compare
@@ -206,12 +181,4 @@ module Directory = struct
     in
     try Ok (fold_files_rec ?ext f acc d)
     with Stop_iter (`Msg _ as e) -> Error e
-
-  module Table = Hashtbl.Make (struct
-    type nonrec t = t
-
-    let equal = Fpath.equal
-
-    let hash = Hashtbl.hash
-  end)
 end

src/odoc/fs.mli

@@ -33,9 +33,6 @@ module Directory : sig
 
   val append : t -> t -> t
 
-  val reach_from : dir:t -> string -> t
-  (** @raise Invalid_argument if [parent/name] exists but is not a directory. *)
-
   val contains : parentdir:t -> file -> bool
 
   val compare : t -> t -> int
@@ -64,8 +61,6 @@ module Directory : sig
   (** [fold_files_rec_result ~ext f acc d] recursively folds [f] over the files
       with extension matching [ext] (defaults to [""]) contained in [d] and its
       sub directories. Stop as soon as [f] returns [Error _]. *)
-
-  module Table : Hashtbl.S with type key = t
 end
 
 module File : sig
@@ -89,8 +84,6 @@ module File : sig
 
   val to_string : t -> string
 
-  val segs : t -> string list
-
   val read : t -> (string, [> msg ]) result
 
   val copy : src:t -> dst:t -> (unit, [> msg ]) result
@@ -100,9 +93,4 @@ module File : sig
   val of_segs : string list -> t
   (** [of_segs segs] Returns an absolute path if [segs] starts with an empty
       segment. Raises [Invalid_argument] if [segs] is empty. *)
-
-  val append_segs : t -> string list -> t
-  (** Append a list of segments to a path. Do not raise. *)
-
-  module Table : Hashtbl.S with type key = t
 end