mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more clear labels

Browse source
This commit is contained in:
Joey Hess 2013-10-28 15:04:38 -04:00
parent 93b2ba4c00
commit b6f2f3e8c5
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Command/Status.hs
View file

@ -126,7 +126,7 @@ global_slow_stats =
, bad_data_size , bad_data_size
, local_annex_keys , local_annex_keys
, local_annex_size , local_annex_size
, known_annex_keys , known_annex_files
, known_annex_size , known_annex_size
, bloom_info , bloom_info
, backend_usage , backend_usage
@ -136,7 +136,7 @@ local_fast_stats =
[ local_dir [ local_dir
, const local_annex_keys , const local_annex_keys
, const local_annex_size , const local_annex_size
, const known_annex_keys , const known_annex_files
, const known_annex_size , const known_annex_size
] ]
local_slow_stats :: [FilePath -> Stat] local_slow_stats :: [FilePath -> Stat]
@ -183,22 +183,22 @@ remote_list level = stat n $ nojson $ lift $ do
local_dir :: FilePath -> Stat local_dir :: FilePath -> Stat
local_dir dir = stat "directory" $ json id $ return dir local_dir dir = stat "directory" $ json id $ return dir
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 = stat "local annex keys" $ json show $ local_annex_keys = stat "local annex keys" $ json show $
countKeys <$> cachedPresentData countKeys <$> cachedPresentData
known_annex_size :: Stat local_annex_size :: Stat
known_annex_size = stat "known annex size" $ json id $ local_annex_size = stat "local annex size" $ json id $
showSizeKeys <$> cachedReferencedData showSizeKeys <$> cachedPresentData
known_annex_keys :: Stat known_annex_files :: Stat
known_annex_keys = stat "known annex items" $ json show $ known_annex_files = stat "annexed files in working tree" $ json show $
countKeys <$> cachedReferencedData countKeys <$> cachedReferencedData
known_annex_size :: Stat
known_annex_size = stat "size of annexed files in working tree" $ json id $
showSizeKeys <$> cachedReferencedData
tmp_size :: Stat tmp_size :: Stat
tmp_size = staleSize "temporary directory size" gitAnnexTmpDir tmp_size = staleSize "temporary directory size" gitAnnexTmpDir
@ -360,7 +360,7 @@ showSizeKeys d = total ++ missingnote
| unknownSizeKeys d == 0 = "" | unknownSizeKeys d == 0 = ""
| otherwise = aside $ | otherwise = aside $
"+ " ++ show (unknownSizeKeys d) ++ "+ " ++ show (unknownSizeKeys d) ++
" keys of unknown size" " unknown size"
staleSize :: String -> (Git.Repo -> FilePath) -> Stat staleSize :: String -> (Git.Repo -> FilePath) -> Stat
staleSize label dirspec = go =<< lift (dirKeys dirspec) staleSize label dirspec = go =<< lift (dirKeys dirspec)