inverted logic

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)

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