findcompute --inputs

Useful for eg, generating dependency graphs.
This commit is contained in:
Joey Hess 2025-03-19 15:39:05 -04:00
parent a669b7f3ec
commit 74457b6b93
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 80 additions and 16 deletions

View file

@ -70,9 +70,9 @@ start o (_, key, _) = startingCustomOutput key $ do
where
-- Some associated files that are in the keys database may no
-- longer correspond to files in the repository.
stillassociated f = catKeyFile f >>= \case
Just k | k == key -> return True
_ -> return False
stillassociated f = catKeyFile f >>= return . \case
Just k | k == key -> True
_ -> False
display :: Key -> StringContainingQuotedPath -> Annex ()
display key loc = do