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/Get.hs | |
| parent | 257d1136e4178665fd52f14a2d430f9ad819d45f (diff) | |
refactor
Diffstat (limited to 'Command/Get.hs')
| -rw-r--r-- | Command/Get.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index fb2145fdd..edab72e42 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -16,7 +16,6 @@ import Config.NumCopies import Annex.Wanted import GitAnnex.Options import qualified Command.Move -import Types.Key def :: [Command] def = [withOptions getOptions $ command "get" paramPaths seek @@ -51,7 +50,7 @@ start' expensivecheck from key afile = stopUnless (not <$> inAnnex key) $ go $ Command.Move.fromPerform src False key afile where go a = do - showStart "get" (fromMaybe (key2file key) afile) + showStart' "get" key afile next a perform :: Key -> AssociatedFile -> CommandPerform |