diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-10 00:55:53 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 01:39:06 -0400 |
| commit | 56c0bf6c690ffddc4ac561393f4cd21d087b7ddb (patch) | |
| tree | 745ab36efe39f693d776a16a73758e04409f74a1 /CmdLine.hs | |
| parent | ea0f914261e4747de75339952c2d47374c5a7803 (diff) | |
convert global options (still not used)
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 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 |