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 /CmdLine/GlobalSetter.hs | |
| parent | 9886c302ef538e538ec7d48b94374b9d2400004f (diff) | |
finished converting all the main options
Diffstat (limited to 'CmdLine/GlobalSetter.hs')
| -rw-r--r-- | CmdLine/GlobalSetter.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/CmdLine/GlobalSetter.hs b/CmdLine/GlobalSetter.hs index eb73f3f12..831a8b440 100644 --- a/CmdLine/GlobalSetter.hs +++ b/CmdLine/GlobalSetter.hs @@ -13,12 +13,12 @@ import Annex import Options.Applicative -globalFlag :: Annex () -> Mod FlagFields GlobalSetter -> Parser GlobalSetter +globalFlag :: Annex () -> Mod FlagFields GlobalSetter -> GlobalOption globalFlag setter = flag' (DeferredParse setter) -globalSetter :: (v -> Annex ()) -> Parser v -> Parser GlobalSetter +globalSetter :: (v -> Annex ()) -> Parser v -> GlobalOption globalSetter setter parser = DeferredParse . setter <$> parser -combineGlobalSetters :: [Parser GlobalSetter] -> Parser GlobalSetter -combineGlobalSetters l = DeferredParse . sequence_ . map getParsed +combineGlobalOptions :: [GlobalOption] -> Parser GlobalSetter +combineGlobalOptions l = DeferredParse . sequence_ . map getParsed <$> many (foldl1 (<|>) l) |