diff options
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 |