[commit: haddock] ghc-7.6: Adapt accept.lhs, so that it ignores more index files (18fd9f5)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/18fd9f5a0a1debe23bef4ba813143b886d586740

>---------------------------------------------------------------

commit 18fd9f5a0a1debe23bef4ba813143b886d586740
Author: Simon Hengel <[email protected]>
Date:   Mon Oct 15 20:28:26 2012 +0200

    Adapt accept.lhs, so that it ignores more index files

>---------------------------------------------------------------

 html-test/accept.lhs |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/html-test/accept.lhs b/html-test/accept.lhs
index 3dfc099..ea55c35 100755
--- a/html-test/accept.lhs
+++ b/html-test/accept.lhs
@@ -12,19 +12,19 @@ baseDir = takeDirectory __FILE__
 
 main :: IO ()
 main = do
-  contents <- filter (`notElem` ignore) <$> getDirectoryContents (baseDir </> "output")
+  contents <- filter (not . ignore) <$> getDirectoryContents (baseDir </> "output")
   args <- getArgs
   if not $ null args then
     mapM_ copy [ baseDir </> "output" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args  ]
   else
     mapM_ copy [ baseDir </> "output" </> file | file <- contents]
   where
-    ignore = [
-        "."
-      , ".."
-      , "doc-index.html"
-      , "index-frames.html"
-      , "index.html"
+    ignore =
+      foldr (liftA2 (||)) (const False) [
+        (== ".")
+      , (== "..")
+      , (isPrefixOf "index")
+      , (isPrefixOf "doc-index")
       ]
 
 copy :: FilePath -> IO ()