mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Command/Whereis.hs
View file

@ -14,7 +14,6 @@ import Command
import Remote
import Logs.Trust
import GitAnnex.Options
import Types.Key
def :: [Command]
def = [noCommit $ withOptions (jsonOption : keyOptions) $
@ -37,7 +36,7 @@ startKeys remotemap key = start' remotemap key Nothing
start' :: M.Map UUID Remote -> Key -> AssociatedFile -> CommandStart
start' remotemap key afile = do
showStart "whereis" (fromMaybe (key2file key) afile)
showStart' "whereis" key afile
next $ perform remotemap key
perform :: M.Map UUID Remote -> Key -> CommandPerform