borg can prompt

diff --git a/Remote/Borg.hs b/Remote/Borg.hs
index cd60cd5ea049215ca20ce52d2a9d6d160823c8cc..460be074fe7d844734d63545355a335dcbc51216 100644 (file)
--- 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"