From 5d4ff035ba0f5a9bd9c61def3effd68bfeb02448 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 25 Oct 2010 20:52:03 -0400 Subject: bugfix --- Commands.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Commands.hs') diff --git a/Commands.hs b/Commands.hs index 2941d619e..da4d840ae 100644 --- a/Commands.hs +++ b/Commands.hs @@ -436,7 +436,7 @@ moveToPerform file key = do showNote $ show err return Nothing Right False -> do - Core.showNote $ "moving to " ++ (Git.repoDescribe r) ++ "..." + Core.showNote $ "moving to " ++ (Git.repoDescribe remote) ++ "..." let tmpfile = (annexTmpLocation remote) ++ (keyFile key) ok <- Remotes.copyToRemote remote key tmpfile if (ok) @@ -479,7 +479,7 @@ moveFromPerform file key = do if (ishere) then return $ Just $ moveFromCleanup remote key else do - Core.showNote $ "moving from " ++ (Git.repoDescribe r) ++ "..." + Core.showNote $ "moving from " ++ (Git.repoDescribe remote) ++ "..." ok <- getViaTmp key (Remotes.copyFromRemote remote key) if (ok) then return $ Just $ moveFromCleanup remote key -- cgit v1.2.3