started borg special remote

Still need to implement 3 methods, but importKeyM looks like it will
work well to find annex object files.
This commit is contained in:
Joey Hess 2020-12-18 16:52:49 -04:00
parent 771b6c64f0
commit 1c054f1cf7
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 69 additions and 5 deletions

View file

@ -370,8 +370,8 @@ guardSameContentIdentifiers cont old new
| new == Just old = cont
| otherwise = giveup "file content has changed"
importKeyM :: RawFilePath -> ExportLocation -> ContentIdentifier -> MeterUpdate -> Annex (Maybe Key)
importKeyM dir loc cid p = do
importKeyM :: RawFilePath -> ExportLocation -> ContentIdentifier -> ByteSize -> MeterUpdate -> Annex (Maybe Key)
importKeyM dir loc cid _sz p = do
backend <- chooseBackend f
k <- fst <$> genKey ks p backend
currcid <- liftIO $ mkContentIdentifier absf