fix lockKey to run callback in original Annex monad, not local remote's

1 files changed, 8 insertions, 3 deletions

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 9fa7158e5..5c429c93c 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -361,10 +361,15 @@ dropKey r key
 	| otherwise = commitOnCleanup r $ Ssh.dropKey (repo r) key
 
 lockKey :: Remote -> Key -> (VerifiedCopy -> Annex r) -> Annex r
-lockKey r key a
+lockKey r key callback
 	| not $ Git.repoIsUrl (repo r) =
-		guardUsable (repo r) cantlock $
-			onLocal r $ Annex.Content.lockContentShared key a
+		guardUsable (repo r) cantlock $ do
+			inorigrepo <- Annex.makeRunner
+			-- Lock content from perspective of remote,
+			-- and then run the callback in the original
+			-- annex monad, not the remote's.
+			onLocal r $ Annex.Content.lockContentShared key $ 
+				liftIO . inorigrepo . callback
 	| Git.repoIsHttp (repo r) = cantlock
 	| otherwise = error "TODO"
   where