diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-25 20:48:32 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-25 20:48:32 -0400 |
commit | 99eaf41da57819ed49e554b09a61b74ac91c7ddb (patch) | |
tree | 4b2f619eed4ef4091d5dd5e1a61493ede0c0e79c /Commands.hs | |
parent | 0788c12ffe9c07104ca70f4dc0636ed0f6879ad2 (diff) |
better messages
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Commands.hs b/Commands.hs index 3c6408391..2941d619e 100644 --- a/Commands.hs +++ b/Commands.hs @@ -436,6 +436,7 @@ moveToPerform file key = do showNote $ show err return Nothing Right False -> do + Core.showNote $ "moving to " ++ (Git.repoDescribe r) ++ "..." let tmpfile = (annexTmpLocation remote) ++ (keyFile key) ok <- Remotes.copyToRemote remote key tmpfile if (ok) @@ -478,14 +479,13 @@ moveFromPerform file key = do if (ishere) then return $ Just $ moveFromCleanup remote key else do - -- copy content from remote + Core.showNote $ "moving from " ++ (Git.repoDescribe r) ++ "..." ok <- getViaTmp key (Remotes.copyFromRemote remote key) if (ok) then return $ Just $ moveFromCleanup remote key else return Nothing -- fail moveFromCleanup :: Git.Repo -> Key -> Annex Bool moveFromCleanup remote key = do - showNote $ "dropping from " ++ (Git.repoDescribe remote) ++ "..." Remotes.runCmd remote "git-annex" ["dropkey", "--quiet", "--force", "--backend=" ++ (backendName key), keyName key] |