info: When run on a file now includes an indication of whether the content is present locally.

This commit is contained in:
Joey Hess 2016-07-30 12:29:59 -04:00
parent 00a5e7475c
commit f0886a1bdd
Failed to extract signature
3 changed files with 9 additions and 0 deletions

View file

@ -30,6 +30,7 @@ import Logs.Location
import Annex.NumCopies
import Remote
import Config
import Git.Config (boolConfig)
import Utility.Percentage
import Logs.Transfer
import Types.TrustLevel
@ -220,6 +221,7 @@ file_stats f k =
[ file_name f
, key_size k
, key_name k
, content_present k
]
remote_fast_stats :: Remote -> [Stat]
@ -354,6 +356,9 @@ key_size k = simpleStat "size" $ showSizeKeys $ foldKeys [k]
key_name :: Key -> Stat
key_name k = simpleStat "key" $ pure $ key2file k
content_present :: Key -> Stat
content_present k = stat "present" $ json boolConfig $ lift $ inAnnex k
bloom_info :: Stat
bloom_info = simpleStat "bloom filter size" $ do
localkeys <- countKeys <$> cachedPresentData