Generate documentation

This commit is contained in:
Michael Snoyman 2012-11-22 12:20:32 +02:00
parent 4624ae2d2a
commit d0b28169f6
2 changed files with 18 additions and 1 deletions

View File

@ -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

View File

@ -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