mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve global options display in --help

Browse source 
Put them in the help of subcommands, not the main command.

And, hide them from the synopsis, to avoid cluttering it.
This commit is contained in:
Joey Hess 2015-07-10 02:18:08 -04:00
parent b66a2d6c5b
commit 7af0893abd
6 changed files with 50 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Types/DeferredParse.hs
View file

@ -39,13 +39,3 @@ instance DeferredParseClass [DeferredParse a] where
-- Use when the Annex action modifies Annex state.
type GlobalSetter = DeferredParse ()
globalFlag :: Annex () -> Mod FlagFields GlobalSetter -> Parser GlobalSetter
globalFlag setter = flag' (DeferredParse setter)
globalSetter :: (v -> Annex ()) -> Parser v -> Parser GlobalSetter
globalSetter setter parser = DeferredParse . setter <$> parser
combineGlobalSetters :: [Parser GlobalSetter] -> Parser GlobalSetter
combineGlobalSetters l = DeferredParse . sequence_ . map getParsed
<$> many (foldl1 (<|>) l)