aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2012-08-25 13:49:04 +0200
committerSimon Hengel <sol@typeful.net>2012-08-28 07:39:14 +0200
commitdd941462345ad638fd00d661e2a3ca239a259ab2 (patch)
tree2e7cece45acaff3eb6bd64810f0daae7cf8ff9d9 /tests
parent16cdfa33ce7a043465a653d87e04c746ab10a797 (diff)
accept.hs: Ignore some files
Diffstat (limited to 'tests')
-rw-r--r--tests/html-tests/accept.hs9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/html-tests/accept.hs b/tests/html-tests/accept.hs
index 49da5c5a..45b32078 100644
--- a/tests/html-tests/accept.hs
+++ b/tests/html-tests/accept.hs
@@ -5,17 +5,24 @@ import System.Exit
import System.Directory
import Data.List
import Control.Monad
+import Control.Applicative
main = do
args <- getArgs
dir <- getCurrentDirectory
- contents <- getDirectoryContents (dir </> "output")
+ contents <- filter (`notElem` ignore) <$> getDirectoryContents (dir </> "output")
if not $ null args
then
mapM_ copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args ]
else
mapM_ copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ]
+ where
+ ignore = [
+ "doc-index.html"
+ , "index-frames.html"
+ , "index.html"
+ ]
copy file = do