diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-23 14:58:14 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-23 14:58:14 -0400 |
commit | 3cf16c9883d63247cceb1f8cf2ce41d43b7a214e (patch) | |
tree | 8724d11cb5967a4f8616ceec0ad04beb37f26dad /Commands.hs | |
parent | f05ed818f9e8e49b646805402be928f9c89c9a7f (diff) |
incomplete
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Commands.hs b/Commands.hs index 011481bd8..ffa3576cf 100644 --- a/Commands.hs +++ b/Commands.hs @@ -308,12 +308,13 @@ moveTo file = isAnnexed file $ \(key, backend) -> do isthere <- Remotes.inAnnex remote key case isthere of Left err -> error (show err) - Right True -> removeit - Right False -> moveit + Right False -> moveit remote key + Right True -> removeit remote key where - moveit = do - error $ "TODO move" ++ file - removeit = do + moveit remote key = do + Remotes.copyToRemote remote key + removeit remote key + removeit remote key = do error $ "TODO remove" ++ file {- Moves the content of an annexed file from another repository to the current |