go go gadget hlint

This commit is contained in:
Joey Hess 2011-09-20 23:24:48 -04:00
parent 9d26192350
commit 9f6b7935dd
21 changed files with 35 additions and 37 deletions

View file

@ -94,11 +94,11 @@ supported_remote_types = stat "supported remote types" $
local_annex_size :: Stat
local_annex_size = stat "local annex size" $
cachedKeysPresent >>= return . keySizeSum
keySizeSum <$> cachedKeysPresent
total_annex_size :: Stat
total_annex_size = stat "total annex size" $
cachedKeysReferenced >>= return . keySizeSum
keySizeSum <$> cachedKeysReferenced
local_annex_keys :: Stat
local_annex_keys = stat "local annex keys" $