Inline modules_exe function in dir_contents.ml

It was only used once and inlining it makes the code slightly simpler

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>

src/dir_contents.ml

@@ -203,16 +203,6 @@ end = struct
   let make_modules sctx (d : _ Dir_with_dune.t) ~modules =
     let scope = d.scope in
     let libs, exes =
-      let modules_exe =
-        let project = Scope.project scope in
-        let name = Dune_project.name project in
-        let wrapped_exes = Dune_project.wrapped_exes project in
-        if wrapped_exes then
-          fun modules -> Modules.exe_wrapped ~name ~src_dir:d.ctx_dir ~modules
-        else
-          Modules.exe_unwrapped
-
-      in
       List.filter_partition_map d.data ~f:(fun stanza ->
         match (stanza : Stanza.t) with
         | Library lib ->
@@ -292,7 +282,15 @@ end = struct
               ~kind:Modules_field_evaluator.Exe_or_normal_lib
               ~private_modules:Ordered_set_lang.standard
           in
-          Right (exes, modules_exe modules)
+          let modules =
+            let project = Scope.project scope in
+            if Dune_project.wrapped_exes project then
+              let name = Dune_project.name project in
+              Modules.exe_wrapped ~name ~src_dir:d.ctx_dir ~modules
+            else
+              Modules.exe_unwrapped modules
+          in
+          Right (exes, modules)
         | _ -> Skip)
     in
     let libraries =