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

borg can prompt

Browse source
This commit is contained in:
Joey Hess 2020-12-22 15:48:17 -04:00
parent df4942e179
commit a9d639c5b5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Borg.hs
View file

@ -257,7 +257,7 @@ retrieveExportWithContentIdentifierM borgrepo loc cid dest k p = error "TODO"
-- the content of files in borg archives does not change, which is normally -- the content of files in borg archives does not change, which is normally
-- the case. But archives may be deleted, and files may be deleted. -- the case. But archives may be deleted, and files may be deleted.
checkPresentExportWithContentIdentifierM :: BorgRepo -> Key -> ImportLocation -> [ContentIdentifier] -> Annex Bool checkPresentExportWithContentIdentifierM :: BorgRepo -> Key -> ImportLocation -> [ContentIdentifier] -> Annex Bool
checkPresentExportWithContentIdentifierM borgrepo k loc cids = liftIO $ do checkPresentExportWithContentIdentifierM borgrepo k loc cids = prompt $ liftIO $ do
let p = proc "borg" let p = proc "borg"
[ "list" [ "list"
, "--format" , "--format"