aboutsummaryrefslogtreecommitdiff
path: root/html-test/Main.hs
diff options
context:
space:
mode:
authorAlexander Biehl <alexbiehl@gmail.com>2018-03-02 15:43:21 +0100
committerGitHub <noreply@github.com>2018-03-02 15:43:21 +0100
commit69b98a99ce4de93ea0e6082bd11edb3baaf2fa6e (patch)
treef89de12c87454c6d0202d1232ea29ff57f4de1ae /html-test/Main.hs
parent4abf7d4979b5364da59f7412a3d7143aea26cf7e (diff)
Make testsuite work with haddock-1.19.0 release (#766)
Diffstat (limited to 'html-test/Main.hs')
-rwxr-xr-xhtml-test/Main.hs15
1 files changed, 15 insertions, 0 deletions
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