diff options
author | 2011-12-09 13:32:09 -0400 | |
---|---|---|
committer | 2011-12-09 13:38:28 -0400 | |
commit | 95e748cbd4bb858a3b87621e60f5b43d53b50480 (patch) | |
tree | 2f39680098816016b7c18a33e7596eb4069ea235 /Command/Move.hs | |
parent | 252b2e92b0ddd5c97565d37c84771b471b6b5082 (diff) |
inverted logic
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 |