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

whereis supports --json, add option

Browse source
This commit is contained in:
Joey Hess 2014-01-18 13:05:56 -04:00
parent 456c9eedb0
commit d793f20886
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Whereis.hs
View file

@ -13,10 +13,12 @@ import Common.Annex
import Command import Command
import Remote import Remote
import Logs.Trust import Logs.Trust
import GitAnnex.Options
def :: [Command] def :: [Command]
def = [noCommit $ command "whereis" paramPaths seek def = [noCommit $ withOptions [jsonOption] $
SectionQuery "lists repositories that have file content"] command "whereis" paramPaths seek SectionQuery
"lists repositories that have file content"]
seek :: [CommandSeek] seek :: [CommandSeek]
seek = [withValue (remoteMap id) $ \m -> seek = [withValue (remoteMap id) $ \m ->