[commit: haddock] master: Adapt hyperlinker test runner to have the same interface as HTML one. (beab75b)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/beab75b0d28117c9b1e56d3a88e8aac70d5bd0b9

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

commit beab75b0d28117c9b1e56d3a88e8aac70d5bd0b9
Author: Łukasz Hanuszczak <lukasz.hanuszczak at gmail.com>
Date:   Tue Jun 30 21:23:31 2015 +0200

    Adapt hyperlinker test runner to have the same interface as HTML one.


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

beab75b0d28117c9b1e56d3a88e8aac70d5bd0b9
 hypsrc-test/run.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hypsrc-test/run.hs b/hypsrc-test/run.hs
index 0b97a07..549f33f 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