diff options
author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-06-30 21:23:31 +0200 |
---|---|---|
committer | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-06-30 22:38:33 +0200 |
commit | beab75b0d28117c9b1e56d3a88e8aac70d5bd0b9 (patch) | |
tree | c3b2325f9a9a28411ba564cbb32ca73df0e89668 | |
parent | cddb70986db0f34427cf74cc93352b1ed10ed56b (diff) |
Adapt hyperlinker test runner to have the same interface as HTML one.
-rwxr-xr-x | hypsrc-test/run.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hypsrc-test/run.hs b/hypsrc-test/run.hs index 0b97a075..549f33f7 100755 --- a/hypsrc-test/run.hs +++ b/hypsrc-test/run.hs @@ -39,9 +39,9 @@ main = do (args, mods) <- partition ("-" `isPrefixOf`) <$> getArgs let args' = filter (\arg -> not $ arg == "--all" || arg == "-a") args - mods' <- map (srcDir </>) <$> if "--all" `elem` args || "-a" `elem` args - then getAllSrcModules - else return mods + mods' <- map (srcDir </>) <$> case args of + [] -> getAllSrcModules + _ -> return $ map (++ ".hs") mods putHaddockVersion putGhcVersion |