From 04539d16718265441c607da08d3e27d959f749c6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 23 Mar 2011 02:42:14 -0400
Subject: improve size change display

---
 Backend.hs | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

(limited to 'Backend.hs')

diff --git a/Backend.hs b/Backend.hs
index fe61739e8..0ee56d262 100644
--- a/Backend.hs
+++ b/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'
-- 
cgit v1.2.3