diff options
author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-06-03 20:34:39 +1000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-06-05 03:47:48 -0400 |
commit | 1713cbb038116c2d703238b47f78c4861232db8e (patch) | |
tree | 9ef7ba336a7c36defe90ce31c5211666f715b47e /hadrian/src/Settings | |
parent | 737b0ae194ca33f9bea9a150dada0c933fd75d4d (diff) | |
download | haskell-1713cbb038116c2d703238b47f78c4861232db8e.tar.gz |
Make 'count-deps' a ghc/util standalone program
- Move 'count-deps' into 'ghc/utils' so that it can be called standalone.
- Move 'testsuite/tests/parser/should_run/' tests 'CountParserDeps' and
'CountAstDeps' to 'testsuite/tests/count-deps' and reimplement in terms
of calling the utility
- Document how to use 'count-deps' in 'ghc/utils/count-deps/README'
Diffstat (limited to 'hadrian/src/Settings')
-rw-r--r-- | hadrian/src/Settings/Builders/Make.hs | 2 | ||||
-rw-r--r-- | hadrian/src/Settings/Default.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/hadrian/src/Settings/Builders/Make.hs b/hadrian/src/Settings/Builders/Make.hs index 9efea20275..f00aab9776 100644 --- a/hadrian/src/Settings/Builders/Make.hs +++ b/hadrian/src/Settings/Builders/Make.hs @@ -26,12 +26,14 @@ validateBuilderArgs = builder (Make "testsuite/tests") ? do compiler <- expr $ fullpath ghc checkPpr <- expr $ fullpath checkPpr checkExact <- expr $ fullpath checkExact + countDeps <- expr $ fullpath countDeps args <- expr $ userSetting defaultTestArgs return [ setTestSpeed $ testSpeed args , "THREADS=" ++ show threads , "TEST_HC=" ++ (top -/- compiler) , "CHECK_PPR=" ++ (top -/- checkPpr) , "CHECK_EXACT=" ++ (top -/- checkExact) + , "COUNT_DEPS=" ++ (top -/- countDeps) ] where fullpath :: Package -> Action FilePath diff --git a/hadrian/src/Settings/Default.hs b/hadrian/src/Settings/Default.hs index 1a28e1ca72..2da096efdb 100644 --- a/hadrian/src/Settings/Default.hs +++ b/hadrian/src/Settings/Default.hs @@ -135,7 +135,7 @@ stage2Packages = stage1Packages -- | Packages that are built only for the testsuite. testsuitePackages :: Action [Package] -testsuitePackages = return ([ timeout | windowsHost ] ++ [ checkPpr, checkExact ]) +testsuitePackages = return ([ timeout | windowsHost ] ++ [ checkPpr, checkExact, countDeps ]) -- | Default build ways for library packages: -- * We always build 'vanilla' way. |