Add showHelpOnError prefs modifier.

This commit is contained in:
Paolo Capriotti 2012-12-23 18:04:24 +00:00
parent 307d78ce57
commit 8c5613e3f5

View File

@ -70,6 +70,7 @@ module Options.Applicative.Builder (
PrefsMod,
multiSuffix,
disambiguate,
showHelpOnError,
noBacktrack,
prefs
) where
@ -285,6 +286,9 @@ multiSuffix s = PrefsMod $ \p -> p { prefMultiSuffix = s }
disambiguate :: PrefsMod
disambiguate = PrefsMod $ \p -> p { prefDisambiguate = True }
showHelpOnError :: PrefsMod
showHelpOnError = PrefsMod $ \p -> p { prefShowHelpOnError = True }
noBacktrack :: PrefsMod
noBacktrack = PrefsMod $ \p -> p { prefBacktrack = False }