aboutsummaryrefslogtreecommitdiff
path: root/Command/Whereis.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-18 13:05:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-18 13:05:56 -0400
commitc77267d2b874d9f0d338a2bbd5aac4791b540dcc (patch)
tree3d33daa180afd3da3cba4748a5e725017e8c9f34 /Command/Whereis.hs
parenta46e72101af416254a29c23471e003b17d4de8e2 (diff)
whereis supports --json, add option
Diffstat (limited to 'Command/Whereis.hs')
-rw-r--r--Command/Whereis.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/Whereis.hs b/Command/Whereis.hs
index 7086bf645..fcbbbf0d5 100644
--- a/Command/Whereis.hs
+++ b/Command/Whereis.hs
@@ -13,10 +13,12 @@ import Common.Annex
import Command
import Remote
import Logs.Trust
+import GitAnnex.Options
def :: [Command]
-def = [noCommit $ command "whereis" paramPaths seek
- SectionQuery "lists repositories that have file content"]
+def = [noCommit $ withOptions [jsonOption] $
+ command "whereis" paramPaths seek SectionQuery
+ "lists repositories that have file content"]
seek :: [CommandSeek]
seek = [withValue (remoteMap id) $ \m ->