diff options
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 |
commit | 8efa6cbc72bbdad8dceb06896f8c1e7a90ab6c6a (patch) | |
tree | e488e7de88b3b37c77f225e859e84321e70e3e0a /html-test | |
parent | bb7d45db2b79f310ab8c2601b47399d5ac69e085 (diff) |
Adapt HTML test runner to use new ignoring functionality.
Diffstat (limited to 'html-test')
-rwxr-xr-x | html-test/Main.hs | 11 |
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 |