diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-15 12:37:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-15 12:37:27 -0400 |
| commit | 81984e60acb920fffc969818e63604060636aa09 (patch) | |
| tree | 462afa0e19ab4f97cbd3d7856200c99bcd064e8b | |
| parent | 5c96411314837db235b5cd1d412243806b83aa8a (diff) | |
better var name
| -rw-r--r-- | Command/Drop.hs | 4 |
1 files 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 |