fsck: Print warnings to stderr; --quiet can now be used to only see problems.

3 files changed, 4 insertions, 4 deletions

diff --git a/Backend/File.hs b/Backend/File.hs
index 835177856..c67fb3ce3 100644
--- a/Backend/File.hs
+++ b/Backend/File.hs
@@ -175,12 +175,12 @@ checkKeyNumCopies key = do
 	let present = length remotes + if inannex then 1 else 0
 	if (present < needed)
 		then do
-			showLongNote $ note present needed
+			warning $ note present needed
 			return False
 		else return True
 	where
 		note 0 _ = "** No known copies of the file exist!"
 		note present needed = 
 			"Only " ++ show present ++ " of " ++ show needed ++ 
-			" copies exist. " ++
+			" copies of "++show key++" exist. " ++
 			"Run git annex get somewhere else to back it up."
diff --git a/Backend/SHA1.hs b/Backend/SHA1.hs
index 9e9000ba9..46667c9cd 100644
--- a/Backend/SHA1.hs
+++ b/Backend/SHA1.hs
@@ -57,5 +57,5 @@ checkKeySHA1 key = do
 				then return True
 				else do
 					dest <- moveBad key
-					showLongNote $ "Bad file content; moved to "++dest
+					warning $ "Bad file content; moved to "++dest
 					return False
diff --git a/Backend/WORM.hs b/Backend/WORM.hs
index 374989996..4e2177fed 100644
--- a/Backend/WORM.hs
+++ b/Backend/WORM.hs
@@ -66,5 +66,5 @@ checkKeySize key = do
 				then return True
 				else do
 					dest <- moveBad key
-					showLongNote $ "Bad file size; moved to "++dest
+					warning $ "Bad file size; moved to "++dest
 					return False