From a5a302b77d816b189ae5ae55f03b18d2cf6ef45b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 30 Dec 2010 20:08:22 -0400 Subject: git-annex-shell mostly done now, only needs 2 more subcommands --- git-annex.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'git-annex.hs') diff --git a/git-annex.hs b/git-annex.hs index 6c143972a..110054fd5 100644 --- a/git-annex.hs +++ b/git-annex.hs @@ -7,6 +7,7 @@ import System.Environment +import qualified GitRepo as Git import CmdLine import Command import Options @@ -58,7 +59,11 @@ cmds = concat , Command.Find.command ] +header :: String +header = "Usage: git-annex command [option ..]" + main :: IO () main = do args <- getArgs - dispatch args cmds commonOptions "Usage: git-annex command [option ..]" + gitrepo <- Git.repoFromCwd + dispatch gitrepo args cmds commonOptions header -- cgit v1.2.3