@@ -20,8 +20,9 @@ defaultExtraCore _ = fromList $ map PackageName $ words
20-- will still be run and logs kept, but a failure will not indicate an
20-- will still be run and logs kept, but a failure will not indicate an
21-- error in our package combination.
21-- error in our package combination.
22defaultExpectedFailures :: GhcMajorVersion
22defaultExpectedFailures :: GhcMajorVersion
23+ -> Bool -- ^ haskell platform
23 -> Set PackageName
24 -> Set PackageName
24−defaultExpectedFailures ghcVer = execWriter $ do
25+defaultExpectedFailures ghcVer requireHP = execWriter $ do
25 -- Requires an old version of WAI and Warp for tests
26 -- Requires an old version of WAI and Warp for tests
26 add "HTTP"
27 add "HTTP"
@@ -219,6 +220,16 @@ defaultExpectedFailures ghcVer = execWriter $ do
220 -- Requires locally running server
221 -- Requires locally running server
221 add "bloodhound"
222 add "bloodhound"
224+ when (ghcVer == GhcMajorVersion 7 8 && requireHP) $ do
225+ -- https://github.com/ndmitchell/extra/issues/2
228+ -- https://github.com/vincenthz/hs-asn1/issues/11
231+ -- https://github.com/vincenthz/hs-tls/issues/84
223 add = tell . singleton . PackageName
234 add = tell . singleton . PackageName