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

better name for LinkPresentAdjustment

Browse source
This commit is contained in:
Joey Hess 2024-10-21 15:42:01 -04:00
parent 4c1b3ca6bb
commit 2c14181bcb
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Adjust.hs
View file

@ -19,7 +19,7 @@ optParser :: CmdParamsDesc -> Parser Adjustment
optParser _ =
(LinkAdjustment <$> linkAdjustmentParser)
<|> (PresenceAdjustment <$> presenceAdjustmentParser <*> maybeLinkAdjustmentParser)
<|> (LinkPresentAdjustment <$> linkPresentAdjustmentParser)
<|> (LockUnlockPresentAdjustment <$> lockUnlockPresentAdjustmentParser)
linkAdjustmentParser :: Parser LinkAdjustment
linkAdjustmentParser =
@ -46,8 +46,8 @@ presenceAdjustmentParser =
<> help "hide annexed files whose content is not present"
)
linkPresentAdjustmentParser :: Parser LinkPresentAdjustment
linkPresentAdjustmentParser =
lockUnlockPresentAdjustmentParser :: Parser LockUnlockPresentAdjustment
lockUnlockPresentAdjustmentParser =
flag' UnlockPresentAdjustment
( long "unlock-present"
<> help "unlock files whose content is present; lock rest"