record VURL key hashes in addcomputed and recompute

This commit is contained in:
Joey Hess 2025-03-03 10:57:56 -04:00
parent 2bd64059f1
commit 63d73d8d1b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 14 additions and 9 deletions

View file

@ -19,8 +19,10 @@ import Annex.CatFile
import Annex.Content.Presence
import Annex.Ingest
import Types.KeySource
import Types.Key
import Messages.Progress
import Logs.Location
import Logs.EquivilantKeys
import Utility.Metered
import Backend.URL (fromUrl)
@ -174,6 +176,10 @@ addComputed addaction stagefiles r reproducibleconfig choosebackend destfile fas
Nothing -> giveup "ingestion failed"
Just k -> do
logStatus NoLiveUpdate k InfoPresent
when (fromKey keyVariety k == VURLKey) $ do
hb <- hashBackend
void $ addEquivilantKey hb k
=<< calcRepo (gitAnnexLocation k)
return k
ldc = LockDownConfig