diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-07-30 12:29:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-07-30 12:29:59 -0400 |
| commit | cc1b371f56877acdccb6deaa7841489f4cc8a397 (patch) | |
| tree | a13a506770dd1f1623d2a2ddab74e6390cab823a /Command | |
| parent | b8e9197d4a394b510a483efab7337811ce18b847 (diff) | |
info: When run on a file now includes an indication of whether the content is present locally.
Diffstat (limited to 'Command')
| -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 |