diff options
author | Joey Hess <joey@kitenet.net> | 2011-06-02 02:40:43 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-06-02 02:40:43 -0400 |
commit | bcb72ce0f2623a77d18f8064738ba26661dad762 (patch) | |
tree | 89d9535c599ad9cd628116860139efc85ce0623d /CmdLine.hs | |
parent | f2cc87860ccb4ccb4a51dd9d255717a0e749fe76 (diff) |
tweak
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index 684ebf979..861a31be9 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -28,8 +28,8 @@ import Messages import UUID {- Runs the passed command line. -} -dispatch :: Git.Repo -> [String] -> [Command] -> [Option] -> String -> IO () -dispatch gitrepo args cmds options header = do +dispatch :: [String] -> [Command] -> [Option] -> String -> Git.Repo -> IO () +dispatch args cmds options header gitrepo = do setupConsole state <- Annex.new gitrepo allBackends (actions, state') <- Annex.run state $ parseCmd args header cmds options |