improve size change display
This commit is contained in:
parent
cd1cb52652
commit
04539d1671
2 changed files with 10 additions and 12 deletions
14
Backend.hs
14
Backend.hs
|
@ -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'
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue