Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : local
http://hackage.haskell.org/trac/ghc/changeset/e4b39fe2a9644f541e20fce7c16fb2d5a5da330e >--------------------------------------------------------------- commit e4b39fe2a9644f541e20fce7c16fb2d5a5da330e Author: Simon Hengel <[email protected]> Date: Thu Jan 12 16:53:36 2012 +0100 tests/html-tests/copy.hs: Use mapM_ instead of mapM So we do net get a list of () on stdout when running with runhaskell. >--------------------------------------------------------------- tests/html-tests/copy.hs | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/html-tests/copy.hs b/tests/html-tests/copy.hs index fe1e542..188bfd3 100644 --- a/tests/html-tests/copy.hs +++ b/tests/html-tests/copy.hs @@ -7,15 +7,16 @@ import Data.List import Control.Monad +main :: IO () main = do args <- getArgs dir <- getCurrentDirectory contents <- getDirectoryContents (dir </> "output") if not $ null args then - mapM copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args ] + mapM_ copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args ] else - mapM copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ] + mapM_ copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ] copy file = do _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
