@@ -57,7 +57,19 @@ packageFlags :: PackageName -> Map FlagName Bool
5757packageFlags _ = mempty
5858
5959tryBuildTest :: PackageName -> Bool
60−tryBuildTest = (`notMember` Old.skippedTests oldSettings)
60+tryBuildTest (PackageName name) = pack name `notMember` skippedTests
6161
6262tryBuildBenchmark :: 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+ ]