From 3b39177047cc9c67d5740eb0f0c1653767cb94d8 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 1 Dec 2014 10:53:06 +0200
Subject: [PATCH] For some packages, build before calling haddock
 gtk2hs/gtk2hs#79

---
 Stackage/Test.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/Stackage/Test.hs b/Stackage/Test.hs
index 05f87b62..1fdd0a5a 100644
--- a/Stackage/Test.hs
+++ b/Stackage/Test.hs
@@ -215,6 +215,10 @@ runTestSuite cabalVersion settings testdir docdir
 
         -- Try building docs first in case tests have an expected failure.
         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
             let hfsOpts = flip map hfs $ \(pkgVer, hf) -> concat
                     [ "--haddock-options=--read-interface="
@@ -271,6 +275,10 @@ runTestSuite cabalVersion settings testdir docdir
     getHandle mode = withBinaryFile logfile mode
     package = packageVersionString (packageName, spiVersion)
 
+    buildBeforeHaddock = Set.fromList $ map PackageName $ words =<<
+        [ "gio gtk"
+        ]
+
 copyBuiltInHaddocks docdir = do
     Just ghc <- findExecutable "ghc"
     copyTree (takeDirectory ghc </> "../share/doc/ghc/html/libraries") docdir