From 55ca64d8510fc3acd34452844086fbcb4bca122c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 7 Jan 2011 02:15:10 -0400 Subject: simplify --- GitAnnex.hs | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- cgit v1.2.3