whereis: Support --all.

Command/Whereis.hs

@@ -14,20 +14,30 @@ import Command
 import Remote
 import Logs.Trust
 import GitAnnex.Options
+import Types.Key
 
 def :: [Command]
-def = [noCommit $ withOptions [jsonOption] $
+def = [noCommit $ withOptions (jsonOption : keyOptions) $
 	command "whereis" paramPaths seek SectionQuery
 		"lists repositories that have file content"]
 
 seek :: CommandSeek
 seek ps = do
 	m <- remoteMap id
-	withFilesInGit (whenAnnexed $ start m) ps
+	withKeyOptions
+		(startKeys m)
+		(withFilesInGit $ whenAnnexed $ start m)
+		ps
 
 start :: M.Map UUID Remote -> FilePath -> (Key, Backend) -> CommandStart
-start remotemap file (key, _) = do
-	showStart "whereis" file
+start remotemap file (key, _) = start' remotemap key (Just file)
+
+startKeys :: M.Map UUID Remote -> Key -> CommandStart
+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)
 	next $ perform remotemap key
 
 perform :: M.Map UUID Remote -> Key -> CommandPerform

debian/changelog

@@ -37,6 +37,7 @@ git-annex (5.20140118) UNRELEASED; urgency=medium
     http remote.
   * webapp: After upgrading a git repository to git-annex, fix
     bug that made it temporarily not be synced with.
+  * whereis: Support --all.
 
  -- Joey Hess <joeyh@debian.org>  Sat, 18 Jan 2014 11:54:17 -0400