From e3ea9d21fc829e1c7a0e038262ebd9aa8607c674 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sun, 5 Apr 2015 13:51:01 -0400
Subject: [PATCH] info remove: show trust level

---
 Command/Info.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Command/Info.hs b/Command/Info.hs
index e04a72a3cb..e489db0eaa 100644
--- a/Command/Info.hs
+++ b/Command/Info.hs
@@ -198,6 +198,7 @@ remote_fast_stats r = map (\s -> s r)
 	[ remote_name
 	, remote_description
 	, remote_uuid
+	, remote_trust
 	, remote_cost
 	, remote_type
 	]
@@ -266,6 +267,10 @@ remote_uuid :: Remote -> Stat
 remote_uuid r = simpleStat "uuid" $ pure $
 	fromUUID $ Remote.uuid r
 
+remote_trust :: Remote -> Stat
+remote_trust r = simpleStat "trust" $ lift $
+	showTrustLevel <$> lookupTrust (Remote.uuid r)
+
 remote_cost :: Remote -> Stat
 remote_cost r = simpleStat "cost" $ pure $
 	show $ Remote.cost r