aboutsummaryrefslogtreecommitdiff
path: root/tests/html-tests
diff options
context:
space:
mode:
authorSimon Hengel <sol@typeful.net>2012-01-12 16:53:36 +0100
committerDavid Waern <david.waern@gmail.com>2012-02-04 00:49:29 +0100
commit87a287f5d6999ef1e1228eabbdfd3268a541fe46 (patch)
tree4bee75c08ded6df77c01dfb412001ec74d3a7cde /tests/html-tests
parent9470eb86f4ef2b58c148bee47436e9f4cb5bca31 (diff)
tests/html-tests/copy.hs: Use mapM_ instead of mapM
So we do net get a list of () on stdout when running with runhaskell.
Diffstat (limited to 'tests/html-tests')
-rw-r--r--tests/html-tests/copy.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/html-tests/copy.hs b/tests/html-tests/copy.hs
index fe1e5422..188bfd33 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