improve size change display

This commit is contained in:
Joey Hess 2011-03-23 02:42:14 -04:00
parent cd1cb52652
commit 04539d1671
2 changed files with 10 additions and 12 deletions

View file

@ -192,15 +192,7 @@ checkKeySize key = do
then return True
else do
dest <- moveBad key
warning $ badsizeNote dest size size'
warning $ "Bad file size (" ++
compareSizes True size size' ++
"); moved to " ++ dest
return False
badsizeNote :: FilePath -> Integer -> Integer -> String
badsizeNote dest expected got = "Bad file size (" ++ aside ++ "); moved to " ++ dest
where
expected' = roughSize True expected
got' = roughSize True got
aside =
if expected' == got'
then show got ++ " not " ++ show expected
else got' ++ " not " ++ expected'