diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-28 15:04:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-28 15:04:38 -0400 |
| commit | 6c9735d4c1c373bb836118d845f18e1484c4ed21 (patch) | |
| tree | e240da92f4fec238b41381f7b8f049545d690be4 /Command/Status.hs | |
| parent | eb157b831f75c70a8ad3c1460a143e343eebe56a (diff) | |
more clear labels
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index d63f1a8eb..44d868f6b 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -126,7 +126,7 @@ global_slow_stats = , bad_data_size , local_annex_keys , local_annex_size - , known_annex_keys + , known_annex_files , known_annex_size , bloom_info , backend_usage @@ -136,7 +136,7 @@ local_fast_stats = [ local_dir , const local_annex_keys , const local_annex_size - , const known_annex_keys + , const known_annex_files , const known_annex_size ] local_slow_stats :: [FilePath -> Stat] @@ -183,22 +183,22 @@ remote_list level = stat n $ nojson $ lift $ do local_dir :: FilePath -> Stat local_dir dir = stat "directory" $ json id $ return dir +local_annex_keys :: Stat +local_annex_keys = stat "local annex keys" $ json show $ + countKeys <$> cachedPresentData + local_annex_size :: Stat local_annex_size = stat "local annex size" $ json id $ showSizeKeys <$> cachedPresentData -local_annex_keys :: Stat -local_annex_keys = stat "local annex keys" $ json show $ - countKeys <$> cachedPresentData +known_annex_files :: Stat +known_annex_files = stat "annexed files in working tree" $ json show $ + countKeys <$> cachedReferencedData known_annex_size :: Stat -known_annex_size = stat "known annex size" $ json id $ +known_annex_size = stat "size of annexed files in working tree" $ json id $ showSizeKeys <$> cachedReferencedData -known_annex_keys :: Stat -known_annex_keys = stat "known annex items" $ json show $ - countKeys <$> cachedReferencedData - tmp_size :: Stat tmp_size = staleSize "temporary directory size" gitAnnexTmpDir @@ -360,7 +360,7 @@ showSizeKeys d = total ++ missingnote | unknownSizeKeys d == 0 = "" | otherwise = aside $ "+ " ++ show (unknownSizeKeys d) ++ - " keys of unknown size" + " unknown size" staleSize :: String -> (Git.Repo -> FilePath) -> Stat staleSize label dirspec = go =<< lift (dirKeys dirspec) |