From 6c9735d4c1c373bb836118d845f18e1484c4ed21 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 28 Oct 2013 15:04:38 -0400
Subject: more clear labels

---
 Command/Status.hs | 22 +++++++++++-----------
 1 file 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)
-- 
cgit v1.2.3