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

--explain for preferred/required content matching

Browse source 
And annex.largefiles and annex.addunlocked.

Also git-annex matchexpression --explain explains why its input
expression matches or fails to match.

When there is no limit, avoid explaining why the lack of limit
matches. This is also done when no preferred content expression is set,
although in a few cases it defaults to a non-empty matcher, which will
be explained.

Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
Joey Hess 2023-07-26 14:34:21 -04:00
parent ba1c222912
commit 518a51a8a0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
12 changed files with 89 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Types/ActionItem.hs
View file

@ -15,6 +15,7 @@ module Types.ActionItem (
import Key
import Types.Transfer
import Types.UUID
import Types.FileMatcher
import Git.FilePath
import Git.Quote (StringContainingQuotedPath(..))
import Utility.FileSystemEncoding
@ -60,6 +61,15 @@ instance MkActionItem (BranchFilePath, Key) where
instance MkActionItem (Transfer, TransferInfo) where
mkActionItem = uncurry ActionItemFailedTransfer
instance MkActionItem MatchInfo where
mkActionItem (MatchingFile i) = ActionItemTreeFile (matchFile i)
mkActionItem (MatchingInfo i) = case providedFilePath i of
Just f -> ActionItemTreeFile f
Nothing -> case providedKey i of
Just k -> ActionItemKey k
Nothing -> ActionItemOther Nothing
mkActionItem (MatchingUserInfo _) = ActionItemOther Nothing
actionItemDesc :: ActionItem -> StringContainingQuotedPath
actionItemDesc (ActionItemAssociatedFile (AssociatedFile (Just f)) _) =
QuotedPath f