diff options
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 8afffd3cb..a18729940 100644 --- a/Command/Drop.hs +++ b/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 |