summaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-07-10 00:55:53 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-07-10 01:39:06 -0400
commit56c0bf6c690ffddc4ac561393f4cd21d087b7ddb (patch)
tree745ab36efe39f693d776a16a73758e04409f74a1 /CmdLine.hs
parentea0f914261e4747de75339952c2d47374c5a7803 (diff)
convert global options (still not used)
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index 5114bc984..7d90a25ce 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -33,8 +33,8 @@ import Command
import Types.Messages
{- Runs the passed command line. -}
-dispatch :: Bool -> CmdParams -> [Command] -> [Option] -> [(String, String)] -> IO Git.Repo -> String -> String -> IO ()
-dispatch fuzzyok allargs allcmds commonoptions fields getgitrepo progname progdesc = do
+dispatch :: Bool -> CmdParams -> [Command] -> Parser GlobalSetter -> [(String, String)] -> IO Git.Repo -> String -> String -> IO ()
+dispatch fuzzyok allargs allcmds globaloptions fields getgitrepo progname progdesc = do
setupConsole
go =<< (E.try getgitrepo :: IO (Either E.SomeException Git.Repo))
where