diff options
Diffstat (limited to 'git-annex.hs')
| -rw-r--r-- | git-annex.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/git-annex.hs b/git-annex.hs index 0f45f53eb..d5c7e4c9b 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -26,9 +26,9 @@ main = run =<< getProgName go a = do ps <- getArgs #ifdef WITH_TESTSUITE - if ps == ["test"] - then Test.main - else a ps + case ps of + ("test":ps') -> Test.main ps' + _ -> a ps #else a ps #endif |