From 56623a3be21970e5560de523bdb4f94afcaf4c0f Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Mon, 3 Jul 2023 17:48:01 +0100 Subject: [PATCH] refactor: remove pointless module alias (#8097) Signed-off-by: Rudi Grinberg --- src/dune_rules/pkg_rules.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/dune_rules/pkg_rules.ml b/src/dune_rules/pkg_rules.ml index f70f683fc5a..9077c33306e 100644 --- a/src/dune_rules/pkg_rules.ml +++ b/src/dune_rules/pkg_rules.ml @@ -30,8 +30,6 @@ let sys_poll = let+ os_family = sys_poll_memo Sys_poll.os_family in { os_version; os_distribution; os_family }) -module Source = Dune_pkg.Lock_dir.Source - module Variable = struct type value = OpamVariable.variable_contents = | B of bool @@ -1214,7 +1212,7 @@ let gen_rules context_name (pkg : Pkg.t) = List.map pkg.info.extra_sources ~f:(fun (local, fetch) -> let extra_source = Paths.extra_source pkg.paths local in let rule = - match (fetch : Source.t) with + match (fetch : Lock_dir.Source.t) with | External_copy (loc, src) -> ( loc , Action_builder.copy ~src:(Path.external_ src) ~dst:extra_source )