inverted logic

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