From 81984e60acb920fffc969818e63604060636aa09 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 15 Sep 2011 12:37:27 -0400
Subject: better var name

---
 Command/Drop.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Command/Drop.hs b/Command/Drop.hs
index a18729940..8f886f283 100644
--- a/Command/Drop.hs
+++ b/Command/Drop.hs
@@ -29,12 +29,12 @@ seek = [withNumCopies start]
 {- Indicates a file's content is not wanted anymore, and should be removed
  - if it's safe to do so. -}
 start :: CommandStartAttrFile
-start (file, attr) = isAnnexed file $ \(key, _) -> do
+start (file, numcopies) = isAnnexed file $ \(key, _) -> do
 	present <- inAnnex key
 	if present
 		then do
 			showStart "drop" file
-			next $ perform key $ readMaybe attr
+			next $ perform key $ readMaybe numcopies
 		else stop
 
 perform :: Key -> Maybe Int -> CommandPerform
-- 
cgit v1.2.3