include key in message

This commit is contained in:
Joey Hess 2010-11-28 17:33:01 -04:00
parent 7e82d420d8
commit fe4f1aae4b

View file

@ -172,7 +172,7 @@ checkKeyNumCopies key numcopies = do
return False return False
else return True else return True
where where
note 0 _ = "** No known copies of the file exist!" note 0 _ = "** No known copies of "++show key++" exist!"
note present needed = note present needed =
"Only " ++ show present ++ " of " ++ show needed ++ "Only " ++ show present ++ " of " ++ show needed ++
" copies of "++show key++" exist. " ++ " copies of "++show key++" exist. " ++