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