summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-28 15:04:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-28 15:04:38 -0400
commit6c9735d4c1c373bb836118d845f18e1484c4ed21 (patch)
treee240da92f4fec238b41381f7b8f049545d690be4 /Command
parenteb157b831f75c70a8ad3c1460a143e343eebe56a (diff)
more clear labels
Diffstat (limited to 'Command')
-rw-r--r--Command/Status.hs22
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)