From 9ff514d4da431955db26cf4e64b68a8e219161b9 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Tue, 18 Aug 2015 21:57:54 +0200
Subject: Specify ignored files for hyperlinker source test runner.

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

(limited to 'hypsrc-test')

diff --git a/hypsrc-test/Main.hs b/hypsrc-test/Main.hs
index b1b48ca4..7fa4a705 100644
--- a/hypsrc-test/Main.hs
+++ b/hypsrc-test/Main.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 
 
+import Data.Char
 import Data.List
 
 import System.Environment
@@ -23,8 +24,20 @@ checkConfig = CheckConfig
 
 
 dirConfig :: DirConfig
-dirConfig = defaultDirConfig $ takeDirectory __FILE__
+dirConfig = (defaultDirConfig $ takeDirectory __FILE__)
+    { dcfgCheckIgnore = checkIgnore
+    }
 
 
 main :: IO ()
 main = runAndCheck =<< parseArgs checkConfig dirConfig =<< getArgs
+
+
+checkIgnore :: FilePath -> Bool
+checkIgnore file
+    | and . map ($ file) $ [isHtmlFile, isSourceFile, isModuleFile] = False
+  where
+    isHtmlFile = (== ".html") . takeExtension
+    isSourceFile = (== "src") . takeDirectory
+    isModuleFile = isUpper . head . takeBaseName
+checkIgnore _ = True
-- 
cgit v1.2.3