diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-07 02:15:10 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-07 02:15:10 -0400 |
commit | 55ca64d8510fc3acd34452844086fbcb4bca122c (patch) | |
tree | fa98904837b3b792584972b7bbf097556add0c98 /GitAnnex.hs | |
parent | 3fad3e527ea12aa5cab5fe646e60300444808f0b (diff) |
simplify
Diffstat (limited to 'GitAnnex.hs')
-rw-r--r-- | GitAnnex.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/GitAnnex.hs b/GitAnnex.hs index 05e98d3c3..24c9ace0a 100644 --- a/GitAnnex.hs +++ b/GitAnnex.hs @@ -9,6 +9,8 @@ module GitAnnex where import System.Console.GetOpt +import qualified GitRepo as Git +import CmdLine import Command import Options @@ -73,3 +75,8 @@ options = commonOptions ++ header :: String header = "Usage: git-annex command [option ..]" + +run :: [String] -> IO () +run args = do + gitrepo <- Git.repoFromCwd + dispatch gitrepo args cmds options header |