finished converting all the main options
This commit is contained in:
parent
5cc882a35e
commit
6a4f2087be
22 changed files with 165 additions and 122 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue