cleanup

1 files changed, 8 insertions, 6 deletions

diff --git a/Command/DropKey.hs b/Command/DropKey.hs
index d00bb6c83..cac955b4a 100644
--- a/Command/DropKey.hs
+++ b/Command/DropKey.hs
@@ -23,14 +23,16 @@ seek = [withKeys start]
 start :: Key -> CommandStart
 start key = do
 	present <- inAnnex key
-	force <- Annex.getState Annex.force
 	if not present
 		then stop
-		else if not force
-			then error "dropkey is can cause data loss; use --force if you're sure you want to do this"
-			else do
-				showStart "dropkey" (show key)
-				next $ perform key
+		else do
+			checkforced
+			showStart "dropkey" (show key)
+			next $ perform key
+	where
+		checkforced = 
+			unlessM (Annex.getState Annex.force) $
+				error "dropkey can cause data loss; use --force if you're sure you want to do this"
 
 perform :: Key -> CommandPerform
 perform key = do