add json formatted list of remotes

Wherever a list of remotes is shown, --json now enables a json formatted
list.
This commit is contained in:
Joey Hess 2011-09-01 16:02:01 -04:00
parent 2f4d4d1c45
commit 5bc32c7f34
3 changed files with 27 additions and 12 deletions

View file

@ -131,7 +131,7 @@ checkKeyNumCopies key file numcopies = do
let present = length safelocations
if present < needed
then do
ppuuids <- Remote.prettyPrintUUIDs untrustedlocations
ppuuids <- Remote.prettyPrintUUIDs "untrusted" untrustedlocations
warning $ missingNote (filename file key) present needed ppuuids
return False
else return True

View file

@ -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