haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-25 12:37:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

For some packages, build before calling haddock gtk2hs/gtk2hs#79

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-01 10:53:06 +02:00
parent 6361491c8f
commit 3b39177047
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Stackage/Test.hs
View File

@ -215,6 +215,10 @@ runTestSuite cabalVersion settings testdir docdir
-- Try building docs first in case tests have an expected failure. -- Try building docs first in case tests have an expected failure.
when (buildDocs settings) $ do when (buildDocs settings) $ do
-- https://github.com/gtk2hs/gtk2hs/issues/79
when (packageName `Set.member` buildBeforeHaddock) $
getHandle AppendMode $ run "cabal" ["build"] dir
hfs <- readIORef haddockFilesRef hfs <- readIORef haddockFilesRef
let hfsOpts = flip map hfs $ \(pkgVer, hf) -> concat let hfsOpts = flip map hfs $ \(pkgVer, hf) -> concat
[ "--haddock-options=--read-interface=" [ "--haddock-options=--read-interface="
@ -271,6 +275,10 @@ runTestSuite cabalVersion settings testdir docdir
getHandle mode = withBinaryFile logfile mode getHandle mode = withBinaryFile logfile mode
package = packageVersionString (packageName, spiVersion) package = packageVersionString (packageName, spiVersion)
buildBeforeHaddock = Set.fromList $ map PackageName $ words =<<
[ "gio gtk"
]
copyBuiltInHaddocks docdir = do copyBuiltInHaddocks docdir = do
Just ghc <- findExecutable "ghc" Just ghc <- findExecutable "ghc"
copyTree (takeDirectory ghc </> "../share/doc/ghc/html/libraries") docdir copyTree (takeDirectory ghc </> "../share/doc/ghc/html/libraries") docdir