mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-11 23:08:30 +01:00
Generate documentation
This commit is contained in:
parent
4624ae2d2a
commit
d0b28169f6
@ -23,6 +23,18 @@ expectedFailures = fromList $ map PackageName
|
||||
-- Requires a special hspec-meta which is not yet available from
|
||||
-- Hackage.
|
||||
, "hspec"
|
||||
|
||||
-- Requires markdown-unlit, which we don't want to depend on.
|
||||
, "hspec-expectations"
|
||||
|
||||
-- text and setenv have recursive dependencies in their tests, which
|
||||
-- cabal can't (yet) handle
|
||||
, "text"
|
||||
, "setenv"
|
||||
|
||||
-- The version of GLUT included with the HP does not generate
|
||||
-- documentation correctly.
|
||||
, "GLUT"
|
||||
]
|
||||
|
||||
-- | List of packages for our stable Hackage. All dependencies will be
|
||||
|
||||
@ -43,7 +43,12 @@ runTestSuite testdir prevPassed pair@(packageName, _) = do
|
||||
else do
|
||||
ph4 <- getHandle AppendMode $ \handle -> runProcess "cabal-dev" ["test"] (Just dir) Nothing Nothing (Just handle) (Just handle)
|
||||
ec4 <- waitForProcess ph4
|
||||
return $ ec4 == ExitSuccess
|
||||
if (ec4 /= ExitSuccess)
|
||||
then return False
|
||||
else do
|
||||
ph5 <- getHandle AppendMode $ \handle -> runProcess "cabal-dev" ["haddock"] (Just dir) Nothing Nothing (Just handle) (Just handle)
|
||||
ec5 <- waitForProcess ph5
|
||||
return $ ec5 == ExitSuccess
|
||||
let expectedFailure = packageName `Set.member` expectedFailures
|
||||
if passed
|
||||
then do
|
||||
|
||||
Loading…
Reference in New Issue
Block a user