From 05b55a496d929ab87355540da39edb5c9bb2dc10 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 21 Jan 2014 00:08:43 -0400 Subject: expose tasty test suite's option parser --- git-annex.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'git-annex.hs') 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 -- cgit v1.2.3