mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

info remove: show trust level

Browse source
This commit is contained in:
Joey Hess 2015-04-05 13:51:01 -04:00
parent 9c31b91c89
commit e3ea9d21fc
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Command/Info.hs
View file

@ -198,6 +198,7 @@ remote_fast_stats r = map (\s -> s r)
[ remote_name [ remote_name
, remote_description , remote_description
, remote_uuid , remote_uuid
, remote_trust
, remote_cost , remote_cost
, remote_type , remote_type
] ]
@ -266,6 +267,10 @@ remote_uuid :: Remote -> Stat
remote_uuid r = simpleStat "uuid" $ pure $ remote_uuid r = simpleStat "uuid" $ pure $
fromUUID $ Remote.uuid r 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 :: Remote -> Stat
remote_cost r = simpleStat "cost" $ pure $ remote_cost r = simpleStat "cost" $ pure $
show $ Remote.cost r show $ Remote.cost r