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

implement VURL to URL migration

Browse source 
Just for completeness, someone might want to downgrade I guess?
This commit is contained in:
Joey Hess 2024-03-01 17:01:27 -04:00
parent 9e3ebc0c59
commit b4811b74b1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Backend/VURL/Utilities.hs
View file

@ -27,14 +27,20 @@ migrateFromURLToVURL oldkey newbackend _af inannex
Just ek -> do
setEquivilantKey newkey ek
return (Just newkey)
| otherwise = do
liftIO $ print ("migrateFromURL", inannex, fromKey keyVariety oldkey)
return Nothing
| otherwise = return Nothing
where
-- Relies on the first hash being cryptographically secure, and the
-- default hash used by git-annex.
hashbackend = Prelude.head Backend.Hash.backends
migrateFromVURLToURL :: Key -> Backend -> AssociatedFile -> Bool -> Annex (Maybe Key)
migrateFromVURLToURL oldkey newbackend _af _
| fromKey keyVariety oldkey == VURLKey && backendVariety newbackend == URLKey =
return $ Just $ mkKey $ const $
(keyData oldkey)
{ keyVariety = URLKey }
| otherwise = return Nothing
-- The Backend must use a cryptographically secure hash.
generateEquivilantKey :: Backend -> RawFilePath -> Annex (Maybe Key)
generateEquivilantKey b f =