aboutsummaryrefslogtreecommitdiff
path: root/html-test/Main.hs
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-18 21:07:06 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-22 23:40:27 +0200
commit8efa6cbc72bbdad8dceb06896f8c1e7a90ab6c6a (patch)
treee488e7de88b3b37c77f225e859e84321e70e3e0a /html-test/Main.hs
parentbb7d45db2b79f310ab8c2601b47399d5ac69e085 (diff)
Adapt HTML test runner to use new ignoring functionality.
Diffstat (limited to 'html-test/Main.hs')
-rwxr-xr-xhtml-test/Main.hs11
1 files changed, 10 insertions, 1 deletions
diff --git a/html-test/Main.hs b/html-test/Main.hs
index 8d1b40a8..49e769f5 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -1,6 +1,8 @@
{-# LANGUAGE CPP #-}
+import Data.Char
+
import System.Environment
import System.FilePath
@@ -17,7 +19,9 @@ checkConfig = CheckConfig
dirConfig :: DirConfig
-dirConfig = defaultDirConfig $ takeDirectory __FILE__
+dirConfig = (defaultDirConfig $ takeDirectory __FILE__)
+ { dcfgCheckIgnore = checkIgnore
+ }
main :: IO ()
@@ -36,3 +40,8 @@ stripIfRequired mdl =
-- | List of modules in which we don't 'stripLinks'
preserveLinksModules :: [String]
preserveLinksModules = ["Bug253"]
+
+
+checkIgnore :: FilePath -> Bool
+checkIgnore file@(c:_) | takeExtension file == ".html" && isUpper c = False
+checkIgnore _ = True