This commit is contained in:
Joey Hess 2014-01-26 15:53:01 -04:00
parent 4d0223e962
commit 3149a62a35
6 changed files with 13 additions and 16 deletions

View file

@ -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