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

final readonly values moves to AnnexRead

Browse source 
At this point I've checked all AnnexState values and these were all that
remained that could move.

Pity that Annex.repo can't move, but it gets modified sometimes..

A couple of AnnexState values are set by options and could be AnnexRead,
but happen to use Annex when being set.

Sponsored-by: Max Thoursie on Patreon
This commit is contained in:
Joey Hess 2022-06-28 16:02:01 -04:00
parent 6984bcdba9
commit 8040ecf9b8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
CmdLine/GitAnnex/Options.hs
View file

@ -78,7 +78,7 @@ gitAnnexGlobalOptions = commonGlobalOptions ++
<> help "override git configuration setting"
<> hidden
)
, globalOption (setAnnexState . setuseragent) $ strOption
, globalOption setuseragent $ strOption
( long "user-agent" <> metavar paramName
<> help "override default User-Agent"
<> hidden
@ -88,12 +88,12 @@ gitAnnexGlobalOptions = commonGlobalOptions ++
<> help "deprecated, does not trust Amazon Glacier inventory"
<> hidden
)
, globalFlag (setAnnexState $ setdesktopnotify mkNotifyFinish)
, globalFlag (setdesktopnotify mkNotifyFinish)
( long "notify-finish"
<> help "show desktop notification after transfer finishes"
<> hidden
)
, globalFlag (setAnnexState $ setdesktopnotify mkNotifyStart)
, globalFlag (setdesktopnotify mkNotifyStart)
( long "notify-start"
<> help "show desktop notification after transfer starts"
<> hidden
@ -102,9 +102,9 @@ gitAnnexGlobalOptions = commonGlobalOptions ++
where
setnumcopies n = setAnnexRead $ \rd -> rd { Annex.forcenumcopies = Just $ configuredNumCopies n }
setmincopies n = setAnnexRead $ \rd -> rd { Annex.forcemincopies = Just $ configuredMinCopies n }
setuseragent v = Annex.changeState $ \s -> s { Annex.useragent = Just v }
setuseragent v = setAnnexRead $ \rd -> rd { Annex.useragent = Just v }
setdesktopnotify v = setAnnexRead $ \rd -> rd { Annex.desktopnotify = Annex.desktopnotify rd <> v }
setgitconfig v = Annex.addGitConfigOverride v
setdesktopnotify v = Annex.changeState $ \s -> s { Annex.desktopnotify = Annex.desktopnotify s <> v }
{- Parser that accepts all non-option params. -}
cmdParams :: CmdParamsDesc -> Parser CmdParams