From c2c17dd7cc264a29f3b11544d1ad3d2a1990af20 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Sun, 30 Jun 2019 14:14:28 +0100 Subject: Try to unbreak --- hadrian/src/Hadrian/Haskell/Cabal/Parse.hs | 6 +++--- hadrian/src/Packages.hs | 16 +++++++--------- hadrian/src/Settings/Default.hs | 4 ++-- 3 files changed, 12 insertions(+), 14 deletions(-) diff --git a/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs b/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs index ca817ea200..6445c07982 100644 --- a/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs +++ b/hadrian/src/Hadrian/Haskell/Cabal/Parse.hs @@ -138,15 +138,15 @@ configurePackage context@Context {..} = do depPkgs <- packageDependencies <$> readPackageData package liftIO $ print depPkgs let - depPkgs' = if pkgName package == "graphmod-plugin" then - (compilerBoot :) . delete compiler $ depPkgs + depPkgs' = if pkgName package == "graphmod-plugin" && False then + depPkgs --(compilerBoot :) . delete compiler $ depPkgs else depPkgs liftIO $ print depPkgs' -- Stage packages are those we have in this stage. stagePkgs <- stagePackages stage -- We'll need those packages in our package database. - let deps = [ simpleTargetString True stage pkg + let deps = [ simpleTargetString False stage pkg | pkg <- depPkgs', pkg `elem` stagePkgs ] liftIO $ print deps need deps diff --git a/hadrian/src/Packages.hs b/hadrian/src/Packages.hs index dca7096ac1..d81ab099fe 100644 --- a/hadrian/src/Packages.hs +++ b/hadrian/src/Packages.hs @@ -3,12 +3,13 @@ module Packages ( -- * GHC packages array, base, binary, bytestring, cabal, checkApiAnnotations, checkPpr, compareSizes, compiler, containers, deepseq, deriveConstants, directory, - filepath, genapply, genprimopcode, ghc, ghcBoot, ghcBootTh, ghcCompact, + filepath, genapply, genprimopcode, ghc, ghcCompact, ghcHeap, ghci, ghcPkg, ghcPrim, haddock, haskeline, hsc2hs, hp2ps, hpc, hpcBin, integerGmp, integerSimple, iserv, iservProxy, libffi, libiserv, mtl, parsec, pretty, primitive, process, remoteIserv, rts, runGhc, stm, templateHaskell, terminfo, text, time, timeout, touchy, - transformers, unlit, unix, win32, xhtml, ghcPackages, isGhcPackage, compilerBoot, + transformers, unlit, unix, win32, xhtml, ghcPackages, isGhcPackage, + ghcBootTh, ghcBoot, -- * Package information programName, nonHsMainPackage, autogenPath, programPath, timeoutPath, @@ -33,12 +34,12 @@ ghcPackages :: [Package] ghcPackages = [ array, base, binary, bytestring, cabal, checkPpr, checkApiAnnotations , compareSizes, compiler, containers, deepseq, deriveConstants, directory - , filepath, genapply, genprimopcode, ghc, ghcBoot, ghcBootThBoot, ghcCompact + , filepath, genapply, genprimopcode, ghc, ghcCompact , ghcHeap, ghci, ghcPkg, ghcPrim, haddock, haskeline, hsc2hs, hp2ps , hpc, hpcBin, integerGmp, integerSimple, iserv, libffi, libiserv, mtl - , parsec, pretty, process, rts, runGhc, stm, templateHaskellBoot + , parsec, pretty, process, rts, runGhc, stm , terminfo, text, time, touchy, transformers, unlit, unix, win32, xhtml - , timeout, compilerBoot ] + , timeout, templateHaskell, ghcBoot, ghcBootTh] -- TODO: Optimise by switching to sets of packages. isGhcPackage :: Package -> Bool @@ -54,7 +55,6 @@ checkApiAnnotations = util "check-api-annotations" checkPpr = util "check-ppr" compareSizes = util "compareSizes" `setPath` "utils/compare_sizes" compiler = top "ghc" `setPath` "compiler" -compilerBoot = boot "ghc" containers = lib "containers" deepseq = lib "deepseq" deriveConstants = util "deriveConstants" @@ -65,7 +65,6 @@ genprimopcode = util "genprimopcode" ghc = prg "ghc-bin" `setPath` "ghc" ghcBoot = lib "ghc-boot" ghcBootTh = lib "ghc-boot-th" -ghcBootThBoot = boot "ghc-boot-th" ghcCompact = lib "ghc-compact" ghcHeap = lib "ghc-heap" ghci = lib "ghci" @@ -93,7 +92,6 @@ rts = top "rts" runGhc = util "runghc" stm = lib "stm" templateHaskell = lib "template-haskell" -templateHaskellBoot = boot "template-haskell" terminfo = lib "terminfo" text = lib "text" time = lib "time" @@ -224,7 +222,7 @@ libffiLibraryName = do -- | Generated header files required by GHC in runtime. generatedGhcDependencies :: Stage -> Action [FilePath] generatedGhcDependencies stage = do - let context = vanillaContext stage compilerBoot + let context = vanillaContext stage compiler bh <- buildPath context <&> (-/- "ghc_boot_platform.h") ch <- contextPath context <&> (-/- "ghc_boot_platform.h") is <- includesDependencies diff --git a/hadrian/src/Settings/Default.hs b/hadrian/src/Settings/Default.hs index 00aecbf982..be8070eaa3 100644 --- a/hadrian/src/Settings/Default.hs +++ b/hadrian/src/Settings/Default.hs @@ -65,9 +65,9 @@ stage0Packages = do , genapply , genprimopcode , ghc - , ghcBoot - , ghcBootTh , ghcHeap + , ghcBootTh + , ghcBoot , ghci , ghcPkg , hsc2hs -- cgit v1.2.1