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:
parent
771b6c64f0
commit
1c054f1cf7
4 changed files with 69 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue