bugfix: Running `copy --to` when both local and remote had the key dropped it from local.

1 files changed, 1 insertions, 1 deletions

diff --git a/Command/Move.hs b/Command/Move.hs
index 0077618f8..3e7fde370 100644
--- a/Command/Move.hs
+++ b/Command/Move.hs
@@ -89,7 +89,7 @@ toPerform move key = do
 			if ok
 				then return $ Just $ toCleanup move remote key
 				else return Nothing -- failed
-		Right True -> return $ Just $ Command.Drop.cleanup key
+		Right True -> return $ Just $ toCleanup move remote key
 toCleanup :: Bool -> Git.Repo -> Key -> CommandCleanup
 toCleanup move remote key = do
 	remoteHasKey remote key True