summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-09-01 16:02:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-09-01 16:02:01 -0400
commit5bc32c7f3438a329878f4da7ad0b514c12a54332 (patch)
treec598544113c70ea401e3c69f18a12cfd53d9d4bc /Command
parent2f4d4d1c4552a93a5f26a8a0a713e3916612329e (diff)
add json formatted list of remotes
Wherever a list of remotes is shown, --json now enables a json formatted list.
Diffstat (limited to 'Command')
-rw-r--r--Command/Fsck.hs2
-rw-r--r--Command/Whereis.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 6ccec05fb..bad60d30d 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -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
diff --git a/Command/Whereis.hs b/Command/Whereis.hs
index 314fef782..f80c823b7 100644
--- 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