refactor: remove Modules.map (#6595)

it's unused Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Nov 27, 2022 · 5a09827 · 5a09827
1 parent 2131800
commit 5a09827
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 10 deletions.
diff --git a/src/dune_rules/modules.ml b/src/dune_rules/modules.ml
@@ -563,14 +563,6 @@ let rec fold_no_vlib t ~init ~f =
   | Wrapped w -> Wrapped.fold w ~init ~f
   | Impl { vlib = _; impl } -> fold_no_vlib impl ~f ~init
 
-let rec map t ~f =
-  match t with
-  | Stdlib w -> Stdlib (Stdlib.map w ~f)
-  | Singleton m -> Singleton (f m)
-  | Unwrapped m -> Unwrapped (Module_name.Map.map m ~f)
-  | Wrapped w -> Wrapped (Wrapped.map w ~f)
-  | Impl { vlib; impl } -> Impl { vlib = map vlib ~f; impl = map impl ~f }
-
 type split_by_lib =
   { vlib : Module.t list
   ; impl : Module.t list

diff --git a/src/dune_rules/modules.mli b/src/dune_rules/modules.mli
@@ -57,8 +57,6 @@ val fold_user_written : t -> f:(Module.t -> 'acc -> 'acc) -> init:'acc -> 'acc
 
 val map_user_written : t -> f:(Module.t -> Module.t Memo.t) -> t Memo.t
 
-val map : t -> f:(Module.t -> Module.t) -> t
-
 val fold_user_available : t -> f:(Module.t -> 'acc -> 'acc) -> init:'acc -> 'acc
 
 (** Returns all the compatibility modules. *)