Skip to content

One shot install plan #1701

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
Closed
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
MakeInstallPlan minor changes
  • Loading branch information
andreabedini committed Nov 4, 2022
commit 367bcd0ce37e90d8985607956299e9bed011f2f2
30 changes: 6 additions & 24 deletions nix-tools/make-install-plan/MakeInstallPlan.hs
Original file line number Diff line number Diff line change
Expand Up @@ -2,41 +2,24 @@

import qualified Data.ByteString.Lazy as BSL
import Data.Foldable (for_)
import Distribution.Client.Config (getCabalDir)
import Distribution.Client.DistDirLayout
( CabalDirLayout,
DistDirLayout (..),
defaultDistDirLayout,
mkCabalDirLayout,
)
import Distribution.Client.DistDirLayout (DistDirLayout (..))
import Distribution.Client.GlobalFlags
import Distribution.Client.HttpUtils (configureTransport)
import qualified Distribution.Client.InstallPlan as InstallPlan
import Distribution.Client.NixStyleOptions (NixStyleFlags (..), defaultNixStyleFlags, nixStyleOptions)
import Distribution.Client.ProjectConfig
import Distribution.Client.ProjectOrchestration
import Distribution.Client.ProjectPlanOutput (writePlanExternalRepresentation)
import Distribution.Client.ProjectPlanning
( ElaboratedConfiguredPackage
( ElaboratedConfiguredPackage,
elabLocalToProject,
elabPkgDescriptionOverride,
elabPkgSourceId
),
rebuildInstallPlan,
rebuildProjectConfig,
)
import Distribution.Client.ProjectPlanning (ElaboratedConfiguredPackage (..), rebuildInstallPlan)
import Distribution.Client.Setup
import Distribution.Compat.Directory (makeAbsolute)
import Distribution.Package (pkgName)
import Distribution.Pretty (prettyShow)
import Distribution.Simple.Command
import Distribution.Simple.Flag
import qualified Distribution.Simple.Utils as Cabal
import Distribution.Verbosity (Verbosity, moreVerbose)
import Distribution.Verbosity (Verbosity)
import qualified Distribution.Verbosity as Verbosity
import System.Environment (getArgs)
import System.FilePath
import Distribution.Client.ProjectOrchestration

main :: IO ()
main = do
Expand Down Expand Up @@ -66,9 +49,8 @@ cmdUI =

installPlanAction :: Verbosity -> ProjectConfig -> IO ()
installPlanAction verbosity cliConfig = do

ProjectBaseContext {distDirLayout, cabalDirLayout, projectConfig, localPackages}
<- establishProjectBaseContext verbosity cliConfig OtherCommand
ProjectBaseContext {distDirLayout, cabalDirLayout, projectConfig, localPackages} <-
establishProjectBaseContext verbosity cliConfig OtherCommand

-- Two variants of the install plan are returned: with and without
-- packages from the store. That is, the "improved" plan where source
Expand Down