diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-25 21:02:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-25 21:02:34 -0400 |
| commit | 109a719b03dbeb70eb317be17f7e18567efa9dac (patch) | |
| tree | b48e0ef83b2472e3c99bd9c2d0f8cd5f10b215fd /Command/Drop.hs | |
| parent | f8e303e1c9a9d976a4dc339295aa0f09eb997b7f (diff) | |
parameterize Backend type
This allows the Backend type to not depend on the Annex type, and
so the Annex type can later be moved out of TypeInternals.
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 065e1743a..fdc55969f 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -37,7 +37,7 @@ start (file, attr) = isAnnexed file $ \(key, backend) -> do where numcopies = readMaybe attr :: Maybe Int -perform :: Key -> Backend -> Maybe Int -> CommandPerform +perform :: Key -> Backend Annex -> Maybe Int -> CommandPerform perform key backend numcopies = do success <- Backend.removeKey backend key numcopies if success |