diff options
author | Joey Hess <joey@kitenet.net> | 2010-11-08 15:15:21 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-11-08 15:15:21 -0400 |
commit | 070e8530c1151dc96dec099eac8b967277751b10 (patch) | |
tree | 8605013ee71aeafdb2bb89612cf3e2044882ab6d /Command/Move.hs | |
parent | 02a21d7f274568a2e2f94498607955aab8713a24 (diff) |
refactoring, no code changes really
Diffstat (limited to 'Command/Move.hs')
-rw-r--r-- | Command/Move.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index cee941622..6ca923a31 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -20,6 +20,7 @@ import Core import qualified GitRepo as Git import qualified Remotes import UUID +import Messages {- Move a file either --to or --from a repository. - @@ -64,7 +65,7 @@ moveToPerform key = do showNote $ show err return Nothing Right False -> do - Core.showNote $ "moving to " ++ (Git.repoDescribe remote) ++ "..." + showNote $ "moving to " ++ (Git.repoDescribe remote) ++ "..." let tmpfile = (annexTmpLocation remote) ++ (keyFile key) ok <- Remotes.copyToRemote remote key tmpfile if (ok) @@ -112,7 +113,7 @@ moveFromPerform key = do if (ishere) then return $ Just $ moveFromCleanup remote key else do - Core.showNote $ "moving from " ++ (Git.repoDescribe remote) ++ "..." + showNote $ "moving from " ++ (Git.repoDescribe remote) ++ "..." ok <- getViaTmp key (Remotes.copyFromRemote remote key) if (ok) then return $ Just $ moveFromCleanup remote key |