summaryrefslogtreecommitdiff
path: root/Backend/File.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-15 18:37:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-15 18:37:49 -0400
commit0893820812c9cc10287c861dccbdae3c287cd7cf (patch)
tree3d3216d68f805d84ce423244273fee8f4e8353a3 /Backend/File.hs
parenta5e7f5329f4d9a80a34302e3707f0bd42b91a441 (diff)
fsck: Print warnings to stderr; --quiet can now be used to only see problems.
Diffstat (limited to 'Backend/File.hs')
-rw-r--r--Backend/File.hs4
1 files changed, 2 insertions, 2 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."