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

refactor

Browse source
This commit is contained in:
Joey Hess 2025-02-27 16:17:42 -04:00
parent e6ae5e8d56
commit d2091730e9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 36 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Remote/Web.hs
View file

@ -30,7 +30,6 @@ import Annex.SpecialRemote.Config
import Logs.Remote
import Logs.EquivilantKeys
import Backend
import Backend.VURL.Utilities (recordVurlKey)
import qualified Data.Map as M
@ -170,10 +169,7 @@ downloadKey urlincludeexclude key _af dest p vc =
recordvurlkey eks = do
b <- hashBackend
ifM (recordVurlKey b dest key eks)
( return (Just Verified)
, return Nothing
)
updateEquivilantKeys b dest key eks
uploadKey :: Key -> AssociatedFile -> Maybe OsPath -> MeterUpdate -> Annex ()
uploadKey _ _ _ _ = giveup "upload to web not supported"