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/Whereis.hs | |
parent | 257d1136e4178665fd52f14a2d430f9ad819d45f (diff) |
refactor
Diffstat (limited to 'Command/Whereis.hs')
-rw-r--r-- | Command/Whereis.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Whereis.hs b/Command/Whereis.hs index 0083f8c5c..723509fb1 100644 --- a/Command/Whereis.hs +++ b/Command/Whereis.hs @@ -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 |