From 7d7732b7f6afc844cc5e2bc2087847801e3426f0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 13 Dec 2012 13:48:07 -0400
Subject: show direct/indirect mode

---
 Command/Status.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Command/Status.hs')

diff --git a/Command/Status.hs b/Command/Status.hs
index 593e8a025..d2307798f 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -69,6 +69,7 @@ fast_stats :: [Stat]
 fast_stats = 
 	[ supported_backends
 	, supported_remote_types
+	, repository_mode
 	, remote_list Trusted
 	, remote_list SemiTrusted
 	, remote_list UnTrusted
@@ -127,6 +128,11 @@ supported_remote_types :: Stat
 supported_remote_types = stat "supported remote types" $ json unwords $
 	return $ map R.typename Remote.remoteTypes
 
+repository_mode :: Stat
+repository_mode = stat "repository mode" $ json id $ lift $
+	ifM isDirect 
+		( return "direct", return "indirect" )
+
 remote_list :: TrustLevel -> Stat
 remote_list level = stat n $ nojson $ lift $ do
 	us <- M.keys <$> (M.union <$> uuidMap <*> remoteMap Remote.name)
-- 
cgit v1.2.3