Bugfix: `copy --to` and `move --to` forgot to stage location log changes after transferring the file to the remote repository. (Did not affect ssh remotes.)

1 files changed, 5 insertions, 2 deletions

diff --git a/Remotes.hs b/Remotes.hs
index 2c8cdfdad..a7a1db415 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -252,8 +252,11 @@ copyToRemote r key
 		-- run copy from perspective of remote
 		liftIO $ do
 			a <- Annex.new r []
-			Annex.eval a $ Core.getViaTmp key $ \f ->
-				liftIO $ copyFile keysrc f
+			Annex.eval a $ do
+				ok <- Core.getViaTmp key $
+					\f -> liftIO $ copyFile keysrc f
+				Annex.queueRun
+				return ok
 	| Git.repoIsSsh r = do
 		g <- Annex.gitRepo
 		let keysrc = annexLocation g key