summaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-21 00:08:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-21 00:08:43 -0400
commit05b55a496d929ab87355540da39edb5c9bb2dc10 (patch)
tree3e70b6a88db0ef0dd6ff81eef322ec70e74f42ea /git-annex.hs
parent2a2dbf31c0b251a09bab61274bf1c5bb2248413d (diff)
expose tasty test suite's option parser
Diffstat (limited to 'git-annex.hs')
-rw-r--r--git-annex.hs6
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