inverted logic

This commit is contained in:
Joey Hess 2011-12-09 13:32:09 -04:00
parent 252b2e92b0
commit 95e748cbd4
2 changed files with 2 additions and 2 deletions

View file

@ -108,7 +108,7 @@ toPerform dest move key = moveLock move key $ do
fromStart :: Remote.Remote Annex -> Bool -> FilePath -> Key -> CommandStart
fromStart src move file key
| move = go
| otherwise = stopUnless (inAnnex key) go
| otherwise = stopUnless (not <$> inAnnex key) go
where
go = stopUnless (fromOk src key) $ do
showMoveAction move file