mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplify

Browse source
This commit is contained in:
Joey Hess 2011-01-07 02:15:10 -04:00
parent 3fad3e527e
commit 55ca64d851
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
GitAnnex.hs
View file

@ -9,6 +9,8 @@ module GitAnnex where
import System.Console.GetOpt import System.Console.GetOpt
import qualified GitRepo as Git
import CmdLine
import Command import Command
import Options import Options
@ -73,3 +75,8 @@ options = commonOptions ++
header :: String header :: String
header = "Usage: git-annex command [option ..]" header = "Usage: git-annex command [option ..]"
run :: [String] -> IO ()
run args = do
gitrepo <- Git.repoFromCwd
dispatch gitrepo args cmds options header