diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-20 20:18:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-20 20:18:43 -0400 |
| commit | 9d26192350b9c7b0402720f6f29c99c24748f364 (patch) | |
| tree | 28537351f7b1e86518e9232589f7819c5d4428fb | |
| parent | 98fbeba0df112753e0c55b0e2f456cd89ed0ede7 (diff) | |
pull out pure code
| -rw-r--r-- | Command/Status.hs | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 26122f269..fc306bbe5 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -94,11 +94,11 @@ supported_remote_types = stat "supported remote types" $ local_annex_size :: Stat local_annex_size = stat "local annex size" $ - cachedKeysPresent >>= keySizeSum + cachedKeysPresent >>= return . keySizeSum total_annex_size :: Stat total_annex_size = stat "total annex size" $ - cachedKeysReferenced >>= keySizeSum + cachedKeysReferenced >>= return . keySizeSum local_annex_keys :: Stat local_annex_keys = stat "local annex keys" $ @@ -145,15 +145,17 @@ cachedKeysReferenced = do put s { keysReferencedCache = Just keys } return keys -keySizeSum :: Set Key -> StatState String -keySizeSum s = do - let knownsizes = mapMaybe keySize $ S.toList s - let total = roughSize storageUnits False $ sum knownsizes - let missing = S.size s - genericLength knownsizes - return $ total ++ - if missing == 0 - then "" - else aside $ "but " ++ show missing ++ " keys have unknown size" +keySizeSum :: Set Key -> String +keySizeSum s = total ++ missingnote + where + knownsizes = mapMaybe keySize $ S.toList s + total = roughSize storageUnits False $ sum knownsizes + missing = S.size s - genericLength knownsizes + missingnote + | missing == 0 = "" + | otherwise = aside $ + "but " ++ show missing ++ + " keys have unknown size" staleSize :: String -> (Git.Repo -> FilePath) -> Stat staleSize label dirspec = do @@ -161,7 +163,7 @@ staleSize label dirspec = do if null keys then nostat else stat label $ do - s <- keySizeSum $ S.fromList keys + let s = keySizeSum $ S.fromList keys return $ s ++ aside "clean up with git-annex unused" aside :: String -> String |