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 () _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
