diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-12-30 20:08:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-12-30 20:08:22 -0400 |
| commit | a5a302b77d816b189ae5ae55f03b18d2cf6ef45b (patch) | |
| tree | 9517a921df12f9addcf9c0284969867ed5b9c35c /git-annex.hs | |
| parent | 7a52b34e0631609d5d862c3ba100cc499b30b5fa (diff) | |
git-annex-shell mostly done now, only needs 2 more subcommands
Diffstat (limited to 'git-annex.hs')
| -rw-r--r-- | git-annex.hs | 7 |
1 files changed, 6 insertions, 1 deletions
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 |