info: Added json output for "backend usage", "numcopies stats", "repositories containing these files", and "transfers in progress".

1 files changed, 15 insertions, 1 deletions

diff --git a/Messages/JSON.hs b/Messages/JSON.hs
index d0ed85a1f..be3dbbc58 100644
--- a/Messages/JSON.hs
+++ b/Messages/JSON.hs
@@ -10,7 +10,8 @@ module Messages.JSON (
 	end,
 	note,
 	add,
-	complete
+	complete,
+	DualDisp(..),
 ) where
 
 import Text.JSON
@@ -35,3 +36,16 @@ add v = putStr $ Stream.add v
 
 complete :: JSON a => [(String, a)] -> IO ()
 complete v = putStr $ Stream.start v ++ Stream.end
+
+-- A value that can be displayed either normally, or as JSON.
+data DualDisp = DualDisp
+	{ dispNormal :: String
+	, dispJson :: String
+	}
+
+instance JSON DualDisp where
+	showJSON = JSString . toJSString . dispJson
+	readJSON _ = Error "stub"
+
+instance Show DualDisp where
+	show = dispNormal