ilyakooo0/optparse-applicative
1
0
Fork 0
mirror of https://github.com/ilyakooo0/optparse-applicative.git synced 2024-11-27 11:56:20 +03:00
Code Issues Projects Releases Wiki Activity

Add modifier for disambiguate option.

Browse Source
This commit is contained in:
Paolo Capriotti 2012-08-05 02:10:09 +01:00
parent 4f3108ad14
commit 0a2eedb50c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Options/Applicative/Builder.hs
View File

@ -72,6 +72,7 @@ module Options.Applicative.Builder (
-- * Builder for 'ParserPrefs'
PrefsMod,
multiSuffix,
disambiguate,
prefs
) where
@ -418,6 +419,9 @@ instance Monoid PrefsMod where
multiSuffix :: String -> PrefsMod
multiSuffix s = PrefsMod $ \p -> p { prefMultiSuffix = s }
disambiguate :: PrefsMod
disambiguate = PrefsMod $ \p -> p { prefDisambiguate = True }
prefs :: PrefsMod -> ParserPrefs
prefs m = applyPrefsMod m base
where