b223988e22
--backend is no longer a global option, and is only accepted by commands that actually need it. Three commands that used to support backend but don't any longer are watch, webapp, and assistant. It would be possible to make them support it, but I doubt anyone used the option with these. And in the case of webapp and assistant, the option was handled inconsistently, only taking affect when the command is run with an existing git-annex repo, not when it creates a new one. Also, renamed GlobalOption etc to AnnexOption. Because there are many options of this type that are not actually global (any more) and get added to commands that need them. Sponsored-by: Kevin Mueller on Patreon
36 lines
1.1 KiB
Haskell
36 lines
1.1 KiB
Haskell
{- git-annex options that are stored in Annex
|
|
-
|
|
- Copyright 2015-2021 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module CmdLine.AnnexSetter where
|
|
|
|
import Common
|
|
import Annex
|
|
import Types.DeferredParse
|
|
|
|
import Options.Applicative
|
|
|
|
setAnnexState :: Annex () -> AnnexSetter
|
|
setAnnexState a = AnnexSetter a id
|
|
|
|
setAnnexRead :: (AnnexRead -> AnnexRead) -> AnnexSetter
|
|
setAnnexRead f = AnnexSetter (return ()) f
|
|
|
|
annexFlag :: AnnexSetter -> Mod FlagFields AnnexSetter -> AnnexOption
|
|
annexFlag = flag'
|
|
|
|
annexOption :: (v -> AnnexSetter) -> Parser v -> AnnexOption
|
|
annexOption mk parser = mk <$> parser
|
|
|
|
-- | Combines a bunch of AnnexOptions together into a Parser
|
|
-- that returns a AnnexSetter that can be used to set all the options that
|
|
-- are enabled.
|
|
parserAnnexOptions :: [AnnexOption] -> Parser AnnexSetter
|
|
parserAnnexOptions [] = pure mempty
|
|
parserAnnexOptions l = mconcat <$> many (foldl1 (<|>) l)
|
|
|
|
applyAnnexReadSetter :: AnnexSetter -> (AnnexState, AnnexRead) -> (AnnexState, AnnexRead)
|
|
applyAnnexReadSetter gs (st, rd) = (st, annexReadSetter gs rd)
|