diff options
Diffstat (limited to 'Command/Move.hs')
| -rw-r--r-- | Command/Move.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index cc26eecda..85fdff739 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -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 |