refactor: remove Modules.is_empty (#6564)

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Nov 24, 2022 · 7d9b541 · 7d9b541
1 parent cb874a2
commit 7d9b541
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 9 deletions.
diff --git a/src/dune_rules/modules.ml b/src/dune_rules/modules.ml
@@ -203,8 +203,6 @@ module Wrapped = struct
     ; wrapped : Mode.t
     }
 
-  let empty t = Module_name.Map.is_empty t.modules
-
   let encode
       { modules; wrapped_compat; alias_module; main_module_name; wrapped } =
     let open Dune_lang.Encoder in
@@ -774,11 +772,6 @@ let relocate_alias_module t ~src_dir =
   | Wrapped t -> Wrapped (Wrapped.relocate_alias_module t ~src_dir)
   | s -> s
 
-let is_empty = function
-  | Stdlib _ | Impl _ | Singleton _ -> false
-  | Unwrapped w -> Module_name.Map.is_empty w
-  | Wrapped w -> Wrapped.empty w
-
 let as_singleton = function
   | Singleton m -> Some m
   | _ -> None

diff --git a/src/dune_rules/modules.mli b/src/dune_rules/modules.mli
@@ -106,8 +106,6 @@ val exit_module : t -> Module.t option
     module to [src_dir]. Only works if [t] is wrapped. *)
 val relocate_alias_module : t -> src_dir:Path.t -> t
 
-val is_empty : t -> bool
-
 val as_singleton : t -> Module.t option
 
 val source_dirs : t -> Path.Set.t