simplify

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