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

fix storing outManifest

Browse source
This commit is contained in:
Joey Hess 2024-05-21 11:44:47 -04:00
parent b3d7ae51f0
commit dc083bf8c8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
CmdLine/GitRemoteAnnex.hs
View file

@ -525,6 +525,13 @@ getEnabledSpecialRemoteByName remotename =
maybe (return (Just rmt)) giveup
(checkSpecialRemoteProblems rmt)
formatManifest :: Manifest -> B.ByteString
formatManifest manifest =
B8.unlines $
map serializeKey' (inManifest manifest)
<>
map (\k -> "-" <> serializeKey' k) (outManifest manifest)
parseManifest :: B.ByteString -> Either String Manifest
parseManifest b =
let (outks, inks) = partitionEithers $ map parseline $ B8.lines b
@ -650,15 +657,13 @@ uploadManifest rmt manifest = do
mkbak = genBackupManifestKey (Remote.uuid rmt)
uploadfailed = giveup "Failed to upload manifest."
manifestcontent = B8.unlines $ map serializeKey' (inManifest manifest)
dropandput mk = do
dropKey' rmt mk
put mk
put mk = withTmpFile "GITMANIFEST" $ \tmp tmph -> do
liftIO $ B8.hPut tmph manifestcontent
liftIO $ B8.hPut tmph (formatManifest manifest)
liftIO $ hClose tmph
-- storeKey needs the key to be in the annex objects
-- directory, so put the manifest file there temporarily.