From 69b98a99ce4de93ea0e6082bd11edb3baaf2fa6e Mon Sep 17 00:00:00 2001
From: Alexander Biehl <alexbiehl@gmail.com>
Date: Fri, 2 Mar 2018 15:43:21 +0100
Subject: Make testsuite work with haddock-1.19.0 release (#766)

---
 html-test/Main.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'html-test/Main.hs')

diff --git a/html-test/Main.hs b/html-test/Main.hs
index 67dbeec6..d65a5087 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -47,7 +47,22 @@ stripIfRequired mdl =
 preserveLinksModules :: [String]
 preserveLinksModules = ["Bug253"]
 
+ingoredTests :: [FilePath]
+ingoredTests =
+  [
+    -- Currently some declarations are exported twice
+    -- we need a reliable way to deduplicate here.
+    -- Happens since PR #688.
+    "B"
+
+    -- ignore-exports flag broke with PR #688. We use
+    -- the Avails calculated by GHC now. Probably
+    -- requires a change to GHC to "ignore" a modules
+    -- export list reliably.
+  , "IgnoreExports"
+  ]
 
 checkIgnore :: FilePath -> Bool
+checkIgnore file | takeBaseName file `elem` ingoredTests = True
 checkIgnore file@(c:_) | takeExtension file == ".html" && isUpper c = False
 checkIgnore _ = True
-- 
cgit v1.2.3