feature(cabal-install): automatically copy executables into build directory after build

Author: andreabedini

cabal-install/src/Distribution/Client/ProjectOrchestration.hs

@@ -158,6 +158,7 @@ import Distribution.Types.ComponentName
 import Distribution.Types.UnqualComponentName
   ( UnqualComponentName
   , packageNameToUnqualComponentName
+  , unUnqualComponentName
   )
 
 import Distribution.PackageDescription.Configuration
@@ -190,6 +191,8 @@ import Distribution.Simple.Utils
   ( createDirectoryIfMissingVerbose
   , debugNoWrap
   , dieWithException
+  , infoNoWrap
+  , installExecutableFile
   , notice
   , noticeNoWrap
   , ordNub
@@ -203,7 +206,7 @@ import Distribution.Types.Flag
 import Distribution.Utils.NubList
   ( fromNubList
   )
-import Distribution.Utils.Path (makeSymbolicPath)
+import Distribution.Utils.Path (makeSymbolicPath, (</>))
 import Distribution.Verbosity
 #ifdef MIN_VERSION_unix
 import           System.Posix.Signals (sigKILL, sigSEGV)
@@ -467,8 +470,8 @@ runProjectPostBuildPhase _ ProjectBaseContext{buildSettings} _ _
       return ()
 runProjectPostBuildPhase
   verbosity
-  ProjectBaseContext{..}
-  ProjectBuildContext{..}
+  baseCtx@ProjectBaseContext{..}
+  buildCtx@ProjectBuildContext{..}
   buildOutcomes = do
     -- Update other build artefacts
     -- TODO: currently none, but could include:
@@ -485,6 +488,8 @@ runProjectPostBuildPhase
         pkgsBuildStatus
         buildOutcomes
 
+    installExecutables verbosity baseCtx buildCtx postBuildStatus
+
     -- Write the .ghc.environment file (if allowed by the env file write policy).
     let writeGhcEnvFilesPolicy =
           projectConfigWriteGhcEnvironmentFilesPolicy . projectConfigShared $
@@ -515,6 +520,32 @@ runProjectPostBuildPhase
     -- an exception to terminate the program
     dieOnBuildFailures verbosity currentCommand elaboratedPlanToExecute buildOutcomes
 
+installExecutables :: Verbosity -> ProjectBaseContext -> ProjectBuildContext -> PostBuildProjectStatus -> IO ()
+installExecutables
+  verbosity
+  ProjectBaseContext{distDirLayout}
+  ProjectBuildContext{elaboratedPlanOriginal, elaboratedShared, targetsMap}
+  postBuildStatus =
+    unless (null srcdst) $ do
+      infoNoWrap verbosity $ "Copying executables to " <> bindir
+      -- Create the bin directory if it does not exist
+      createDirectoryIfMissingVerbose verbosity True bindir
+      -- Install the executables
+      for_ srcdst $ \(exe, src) -> do
+        installExecutableFile verbosity src (bindir </> exe)
+    where
+      bindir = distBinDirectory distDirLayout
+      srcdst =
+        [ (exe, dir </> exe)
+        | (pkg, targets) <- Map.toList targetsMap
+        , stageOf pkg == Host
+        , pkg `Set.member` packagesDefinitelyUpToDate postBuildStatus
+        , Just (InstallPlan.Configured elab) <- [InstallPlan.lookup elaboratedPlanOriginal pkg]
+        , (ComponentTarget (CExeName cname) _subtarget, _targetSelectors) <- targets
+        , let exe = unUnqualComponentName cname
+        , let dir = binDirectoryFor distDirLayout elaboratedShared elab exe
+        ]
+
 -- Note that it is a deliberate design choice that the 'buildTargets' is
 -- not passed to phase 1, and the various bits of input config is not
 -- passed to phase 2.