add json formatted list of remotes

Wherever a list of remotes is shown, --json now enables a json formatted list.
2011-09-01 16:02:01 -04:00 · 2011-09-01 16:02:01 -04:00 · 5bc32c7f34
commit 5bc32c7f34
parent 2f4d4d1c45
3 changed files with 27 additions and 12 deletions
--- a/Command/Whereis.hs
+++ b/Command/Whereis.hs
@ -33,7 +33,7 @@ perform key = do
 	if null uuids
 		then stop
 		else do
-			pp <- prettyPrintUUIDs uuids
+			pp <- prettyPrintUUIDs "whereis" uuids
 			showLongNote pp
 			showOutput
 			next $ return True