haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-22 19:17:53 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

More comprehensive test/benchmark skipping

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-07 12:57:24 +02:00
parent fe1df2935d
commit b66961d2d8
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Stackage2/PackageConstraints.hs
View File

@ -57,7 +57,19 @@ packageFlags :: PackageName -> Map FlagName Bool
packageFlags _ = mempty packageFlags _ = mempty
tryBuildTest :: PackageName -> Bool tryBuildTest :: PackageName -> Bool
tryBuildTest = (`notMember` Old.skippedTests oldSettings) tryBuildTest (PackageName name) = pack name `notMember` skippedTests
tryBuildBenchmark :: PackageName -> Bool tryBuildBenchmark :: PackageName -> Bool
tryBuildBenchmark _ = True tryBuildBenchmark (PackageName name) = pack name `notMember` skippedBenchs
skippedTests :: HashSet Text
skippedTests = (old ++ ) $ setFromList $ words =<<
[ "HTTP"
]
where
old = setFromList $ map unPackageName $ setToList $ Old.skippedTests oldSettings
skippedBenchs :: HashSet Text
skippedBenchs = setFromList $ words =<<
[ "machines"
]