From d23d4ff9d994b4ac4de0ec133601aa03eb01a961 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 27 Feb 2013 15:48:26 -0400 Subject: break dependency cycle by special casing running of test command --- git-annex.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'git-annex.hs') 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 + - Copyright 2010-2013 Joey Hess - - 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 -- cgit v1.2.3