simplify

Command/Drop.hs

@@ -34,10 +34,8 @@ start (file, attr) = isAnnexed file $ \(key, _) -> do
 	if present
 		then do
 			showStart "drop" file
-			next $ perform key numcopies
+			next $ perform key $ readMaybe attr
 		else stop
-	where
-		numcopies = readMaybe attr :: Maybe Int
 
 perform :: Key -> Maybe Int -> CommandPerform
 perform key numcopies = do

Command/Fsck.hs

@@ -39,9 +39,7 @@ seek = [withNumCopies start]
 start :: CommandStartAttrFile
 start (file, attr) = notBareRepo $ isAnnexed file $ \(key, backend) -> do
 	showStart "fsck" file
-	next $ perform key file backend numcopies
-	where
-		numcopies = readMaybe attr :: Maybe Int
+	next $ perform key file backend $ readMaybe attr
 
 perform :: Key -> FilePath -> Backend Annex -> Maybe Int -> CommandPerform
 perform key file backend numcopies = do

Command/Optimize.hs

@@ -24,7 +24,7 @@ seek = [withNumCopies start]
 
 start :: CommandStartAttrFile
 start p@(file, attr) = notBareRepo $ isAnnexed file $ \(key, _) -> do
-	needed <- getNumCopies numcopies
+	needed <- getNumCopies $ readMaybe attr
 	(_, safelocations) <- trustPartition UnTrusted =<< keyLocations key
 	dispatch needed (length safelocations)
 	where
@@ -32,4 +32,3 @@ start p@(file, attr) = notBareRepo $ isAnnexed file $ \(key, _) -> do
 			| present < needed = Command.Get.start file
 			| present > needed = Command.Drop.start p
 			| otherwise = stop
-		numcopies = readMaybe attr :: Maybe Int