summaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-12-30 20:08:22 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-12-30 20:08:22 -0400
commita5a302b77d816b189ae5ae55f03b18d2cf6ef45b (patch)
tree9517a921df12f9addcf9c0284969867ed5b9c35c /git-annex.hs
parent7a52b34e0631609d5d862c3ba100cc499b30b5fa (diff)
git-annex-shell mostly done now, only needs 2 more subcommands
Diffstat (limited to 'git-annex.hs')
-rw-r--r--git-annex.hs7
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