mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

incomplete

Browse source
This commit is contained in:
Joey Hess 2010-10-23 14:58:14 -04:00
parent f05ed818f9
commit 3cf16c9883
2 changed files with 36 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Commands.hs
View file

@ -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