Remove unused functions

jonludlam · jonludlam · commit f2d85d1935f3 · 2024-10-31T17:01:31.000Z
diff --git a/src/driver/packages.ml b/src/driver/packages.ml
@@ -111,12 +111,6 @@ let maybe_prepend_top top_dir dir =
 
 let pkg_dir top_dir pkg_name = maybe_prepend_top top_dir Fpath.(v pkg_name)
 
-(* let parent_of_lib pkg_dir lib_name = Fpath.(pkg_dir / "lib" / lib_name) *)
-
-let parent_of_pages pkg_dir = Fpath.(pkg_dir / "doc")
-
-(* let parent_of_src pkg_dir lib_name = Fpath.(pkg_dir / "src" / lib_name) *)
-
 module Module = struct
   type t = modulety
 
diff --git a/src/driver/packages.mli b/src/driver/packages.mli
@@ -54,9 +54,6 @@ type libty = {
   modules : modulety list;
 }
 
-val parent_of_pages : Fpath.t -> Fpath.t
-(** Given a [pkg_dir], returns a [mld_odoc_dir]. *)
-
 module Lib : sig
   val v :
     libname_of_archive:string Fpath.Map.t ->

Original file line number	Diff line number	Diff line change
`@@ -54,9 +54,6 @@ type libty = {`
`54`	`54`	`modules : modulety list;`
`55`	`55`	`}`
`56`	`56`
`57`		`-val parent_of_pages : Fpath.t -> Fpath.t`
`58`		`-(** Given a [pkg_dir], returns a [mld_odoc_dir]. *)`
`59`		`-`
`60`	`57`	`module Lib : sig`
`61`	`58`	`val v :`
`62`	`59`	`libname_of_archive:string Fpath.Map.t ->`