From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 22 Dec 2020 19:48:17 +0000 (-0400)
Subject: borg can prompt
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~98^2~299^2~2
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a9d639c5b5374b600863469621304786ca9e6f64;p=git-annex.git

borg can prompt
---

diff --git a/Remote/Borg.hs b/Remote/Borg.hs
index cd60cd5ea0..460be074fe 100644
--- a/Remote/Borg.hs
+++ b/Remote/Borg.hs
@@ -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 case. But archives may be deleted, and files may be deleted.
 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"
 		[ "list"
 		, "--format"