diff options
| -rw-r--r-- | Command/DropKey.hs | 2 | ||||
| -rw-r--r-- | Command/Move.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/DropKey.hs b/Command/DropKey.hs index ae2ad8b6a..aaaa22466 100644 --- a/Command/DropKey.hs +++ b/Command/DropKey.hs @@ -21,7 +21,7 @@ seek :: [CommandSeek] seek = [withKeys start] start :: Key -> CommandStart -start key = stopUnless (not <$> inAnnex key) $ do +start key = stopUnless (inAnnex key) $ do unlessM (Annex.getState Annex.force) $ error "dropkey can cause data loss; use --force if you're sure you want to do this" showStart "dropkey" (show key) 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 |