diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-07-10 13:18:46 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 13:23:06 -0400 |
commit | 19a3a331c35238a10ec2c537cf64d0b4c1fb290c (patch) | |
tree | ca5d79d0be1a80c01c9ad452331bdbebc1c4430a /Command.hs | |
parent | 9886c302ef538e538ec7d48b94374b9d2400004f (diff) |
finished converting all the main options
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command.hs b/Command.hs index 102173f88..a9659b78f 100644 --- a/Command.hs +++ b/Command.hs @@ -83,12 +83,12 @@ withOptions o c = c { cmdoptions = cmdoptions c ++ o } {- Adds global options to a command's option parser, and modifies its seek - option to first run actions for them. -} -withGlobalOptions :: [Parser GlobalSetter] -> Command -> Command +withGlobalOptions :: [GlobalOption] -> Command -> Command withGlobalOptions os c = c { cmdparser = apply <$> mixin (cmdparser c) } where mixin p = (,) <$> p - <*> combineGlobalSetters os + <*> combineGlobalOptions os apply (seek, globalsetters) = do void $ getParsed globalsetters seek |