refactoring, no code changes really
This commit is contained in:
parent
02a21d7f27
commit
070e8530c1
19 changed files with 105 additions and 74 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue