git.iko.soy/stackage
on master help sign in
More comprehensive test/benchmark skipping
b66961dMichael Snoyman
Stackage2/PackageConstraints.hs+14−2
compare with master
unifiedsplit
@@ -57,7 +57,19 @@ packageFlags :: PackageName -> Map FlagName Bool
57packageFlags _ = mempty
57packageFlags _ = mempty
58
58
59tryBuildTest :: PackageName -> Bool
59tryBuildTest :: PackageName -> Bool
60−tryBuildTest = (`notMember` Old.skippedTests oldSettings)
60+tryBuildTest (PackageName name) = pack name `notMember` skippedTests
61
61
62tryBuildBenchmark :: PackageName -> Bool
62tryBuildBenchmark :: PackageName -> Bool
63−tryBuildBenchmark _ = True
63+tryBuildBenchmark (PackageName name) = pack name `notMember` skippedBenchs
64+
65+skippedTests :: HashSet Text
66+skippedTests = (old ++ ) $ setFromList $ words =<<
67+ [ "HTTP"
68+ ]
69+ where
70+ old = setFromList $ map unPackageName $ setToList $ Old.skippedTests oldSettings
71+
72+skippedBenchs :: HashSet Text
73+skippedBenchs = setFromList $ words =<<
74+ [ "machines"
75+ ]