From d2769cf7953657ac9ff6ba2acc27cb71a6543c5d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 15 Mar 2012 12:00:19 -0400 Subject: shave some 12 mb from the installed size * git-annex now behaves as git-annex-shell if symlinked to and run by that name. The Makefile sets this up, saving some 8 mb of installed size. * git-union-merge is a demo program, so it is no longer built by default. --- git-annex.hs | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'git-annex.hs') diff --git a/git-annex.hs b/git-annex.hs index a53697cdb..f5f2f22d7 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -1,13 +1,21 @@ {- git-annex main program stub - - - Copyright 2010 Joey Hess + - Copyright 2010,2012 Joey Hess - - Licensed under the GNU GPL version 3 or higher. -} import System.Environment +import System.FilePath -import GitAnnex +import qualified GitAnnex +import qualified GitAnnexShell main :: IO () -main = run =<< getArgs +main = run =<< getProgName + where + run n + | isshell n = go GitAnnexShell.run + | otherwise = go GitAnnex.run + isshell n = takeFileName n == "git-annex-shell" + go a = a =<< getArgs -- cgit v1.2.3