This commit is contained in:
Joey Hess 2011-11-11 01:52:58 -04:00
parent b327227ba5
commit 637b5feb45
26 changed files with 71 additions and 102 deletions

View file

@ -82,7 +82,7 @@ toPerform dest move key = moveLock move key $ do
else Remote.hasKey dest key
case isthere of
Left err -> do
showNote $ err
showNote err
stop
Right False -> do
showAction $ "to " ++ Remote.name dest
@ -111,7 +111,7 @@ toPerform dest move key = moveLock move key $ do
-}
fromStart :: Remote.Remote Annex -> Bool -> FilePath -> Key -> CommandStart
fromStart src move file key
| move == True = go
| move = go
| otherwise = do
ishere <- inAnnex key
if ishere then stop else go