diff options
author | Joey Hess <joey@kitenet.net> | 2013-02-27 15:48:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-02-27 15:51:28 -0400 |
commit | d23d4ff9d994b4ac4de0ec133601aa03eb01a961 (patch) | |
tree | e61d9506ee3654a1d9d7811f2874b00d28677681 /git-annex.hs | |
parent | f812dd12aff241585bad2f4e064e44d795a53813 (diff) |
break dependency cycle by special casing running of test command
Diffstat (limited to 'git-annex.hs')
-rw-r--r-- | git-annex.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/git-annex.hs b/git-annex.hs index 60ed6c15e..e2cd80ace 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -1,6 +1,6 @@ {- git-annex main program stub - - - Copyright 2010,2012 Joey Hess <joey@kitenet.net> + - Copyright 2010-2013 Joey Hess <joey@kitenet.net> - - Licensed under the GNU GPL version 3 or higher. -} @@ -10,6 +10,7 @@ import System.FilePath import qualified GitAnnex import qualified GitAnnexShell +import qualified Test main :: IO () main = run =<< getProgName @@ -18,4 +19,8 @@ main = run =<< getProgName | isshell n = go GitAnnexShell.run | otherwise = go GitAnnex.run isshell n = takeFileName n == "git-annex-shell" - go a = a =<< getArgs + go a = do + ps <- getArgs + if ps == ["test"] + then Test.main + else a ps |