diff options
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 bdc8afc34..39511e6d4 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -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 |