diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-26 15:53:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-26 15:53:01 -0400 |
| commit | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (patch) | |
| tree | c47863a99db0631890802909583ac5003dda416f /Command/Drop.hs | |
| parent | 257d1136e4178665fd52f14a2d430f9ad819d45f (diff) | |
refactor
Diffstat (limited to 'Command/Drop.hs')
| -rw-r--r-- | Command/Drop.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index d17302035..0a6d61ba0 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -18,7 +18,6 @@ import Config.NumCopies import Annex.Content import qualified Option import Annex.Wanted -import Types.Key def :: [Command] def = [withOptions [fromOption] $ command "drop" paramPaths seek @@ -45,12 +44,12 @@ start from file (key, _) = checkDropAuto from file key $ \numcopies -> startLocal :: AssociatedFile -> NumCopies -> Key -> Maybe Remote -> CommandStart startLocal afile numcopies key knownpresentremote = stopUnless (inAnnex key) $ do - showStart "drop" (fromMaybe (key2file key) afile) + showStart' "drop" key afile next $ performLocal key numcopies knownpresentremote startRemote :: AssociatedFile -> NumCopies -> Key -> Remote -> CommandStart startRemote afile numcopies key remote = do - showStart ("drop " ++ Remote.name remote) (fromMaybe (key2file key) afile) + showStart' ("drop " ++ Remote.name remote) key afile next $ performRemote key numcopies remote performLocal :: Key -> NumCopies -> Maybe Remote -> CommandPerform |