available targets are only host

Author: andreabedini

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

@@ -3115,10 +3115,12 @@ availableTargets installPlan =
   let rs =
         [ (pkgid, cname, fake, target)
         | pkg <- InstallPlan.toList installPlan
-        , (pkgid, cname, fake, target) <- case pkg of
+        , (stage, pkgid, cname, fake, target) <- case pkg of
             InstallPlan.PreExisting ipkg -> availableInstalledTargets ipkg
             InstallPlan.Installed elab -> availableSourceTargets elab
             InstallPlan.Configured elab -> availableSourceTargets elab
+          -- Only host stage can be explicitly requested by the user
+        , stage == Host
         ]
    in Map.union
         ( Map.fromListWith
@@ -3142,7 +3144,8 @@ availableTargets installPlan =
 
 availableInstalledTargets
   :: WithStage IPI.InstalledPackageInfo
-  -> [ ( PackageId
+  -> [ ( Stage
+       , PackageId
        , ComponentName
        , Bool
        , AvailableTarget (WithStage UnitId, ComponentName)
@@ -3154,11 +3157,12 @@ availableInstalledTargets (WithStage stage ipkg) =
       status = TargetBuildable (WithStage stage unitid, cname) TargetRequestedByDefault
       target = AvailableTarget (packageId ipkg) cname status False
       fake = False
-   in [(packageId ipkg, cname, fake, target)]
+   in [(stage, IPI.sourcePackageId ipkg, cname, fake, target)]
 
 availableSourceTargets
   :: ElaboratedConfiguredPackage
-  -> [ ( PackageId
+  -> [ ( Stage
+       , PackageId
        , ComponentName
        , Bool
        , AvailableTarget (WithStage UnitId, ComponentName)
@@ -3195,7 +3199,7 @@ availableSourceTargets elab =
   -- map (thus eliminating the duplicates) and then we overlay that map with
   -- the normal buildable targets. (This is done above in 'availableTargets'.)
   --
-  [ (packageId elab, cname, fake, target)
+  [ (elabStage elab, elabPkgSourceId elab, cname, fake, target)
   | component <- pkgComponents (elabPkgDescription elab)
   , let cname = componentName component
         status = componentAvailableTargetStatus component