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

pushEmpty: upload empty manifest

Browse source
This commit is contained in:
Joey Hess 2024-05-10 14:40:38 -04:00
parent ff5193c6ad
commit 4d0543932e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
CmdLine/GitRemoteAnnex.hs
View file

@ -347,14 +347,15 @@ incrementalPush st rmt oldtrackingrefs newtrackingrefs = guardPush st $ do
, findotherprereq' ref sha ls
)
-- When the push deletes all refs from the remote, drop the manifest
-- and all bundles that were listed in it. The manifest is dropped
-- first so if this is interrupted, only unused bundles will remain in the
-- remote, rather than leaving the remote with a manifest that refers to
-- missing bundles.
-- When the push deletes all refs from the remote, upload an empty
-- manifest and then drop all bundles that were listed in it.
-- The manifest is emptired first so if this is interrupted, only
-- unused bundles will remain in the remote, rather than leaving the
-- remote with a manifest that refers to missing bundles.
pushEmpty :: State -> Remote -> Annex (Bool, State)
pushEmpty st rmt = do
manifest <- maybe (downloadManifest rmt) pure (manifestCache st)
uploadManifest rmt (Manifest [])
ok <- allM (dropKey rmt)
(genManifestKey (Remote.uuid rmt) : inManifest manifest)
return (ok, st { manifestCache = Nothing })