2011-01-07 02:15:23 -04:00
|
|
|
{- git-annex main program stub
|
2010-10-27 16:53:54 -04:00
|
|
|
-
|
2013-02-27 15:48:26 -04:00
|
|
|
- Copyright 2010-2013 Joey Hess <joey@kitenet.net>
|
2010-10-27 16:53:54 -04:00
|
|
|
-
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
-}
|
2010-10-10 00:18:16 -04:00
|
|
|
|
2013-02-27 15:59:31 -04:00
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
|
2010-12-30 16:52:24 -04:00
|
|
|
import System.Environment
|
2012-03-15 12:00:19 -04:00
|
|
|
import System.FilePath
|
2010-10-16 16:20:49 -04:00
|
|
|
|
2012-03-15 12:00:19 -04:00
|
|
|
import qualified GitAnnex
|
|
|
|
import qualified GitAnnexShell
|
2013-02-27 16:33:20 -04:00
|
|
|
#ifdef WITH_TESTSUITE
|
2013-05-11 15:03:00 -05:00
|
|
|
#ifndef __WINDOWS__
|
2013-02-27 15:48:26 -04:00
|
|
|
import qualified Test
|
2013-05-11 15:03:00 -05:00
|
|
|
#define CHECK_TEST
|
|
|
|
#endif
|
2013-02-27 15:59:31 -04:00
|
|
|
#endif
|
2011-03-08 18:05:20 -04:00
|
|
|
|
2010-10-31 14:32:18 -04:00
|
|
|
main :: IO ()
|
2012-03-15 12:00:19 -04:00
|
|
|
main = run =<< getProgName
|
2012-11-11 00:51:07 -04:00
|
|
|
where
|
|
|
|
run n
|
|
|
|
| isshell n = go GitAnnexShell.run
|
|
|
|
| otherwise = go GitAnnex.run
|
|
|
|
isshell n = takeFileName n == "git-annex-shell"
|
2013-02-27 15:48:26 -04:00
|
|
|
go a = do
|
|
|
|
ps <- getArgs
|
2013-05-11 15:03:00 -05:00
|
|
|
#ifdef CHECK_TEST
|
2013-02-27 15:48:26 -04:00
|
|
|
if ps == ["test"]
|
|
|
|
then Test.main
|
|
|
|
else a ps
|
2013-02-27 15:59:31 -04:00
|
|
|
#else
|
|
|
|
a ps
|
|
|
|
#endif
|