diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-05 13:51:01 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-05 13:51:01 -0400 |
| commit | 0405744d445b2dc5d3d2ce042e36735e6ff2315a (patch) | |
| tree | e21eb4e32a11484530181d48fc944bb92895de29 /Command/Info.hs | |
| parent | 1fa214f1e72fb4b8f65a68b59f8ede2b2313448f (diff) | |
info remove: show trust level
Diffstat (limited to 'Command/Info.hs')
| -rw-r--r-- | Command/Info.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index e04a72a3c..e489db0ea 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 |