From fe4f1aae4b6c5fe3527f3e2462efac6e337f4978 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 28 Nov 2010 17:33:01 -0400 Subject: [PATCH] include key in message --- Backend/File.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Backend/File.hs b/Backend/File.hs index e3225a8b85..d09e09f56e 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -172,7 +172,7 @@ checkKeyNumCopies key numcopies = do return False else return True where - note 0 _ = "** No known copies of the file exist!" + note 0 _ = "** No known copies of "++show key++" exist!" note present needed = "Only " ++ show present ++ " of " ++ show needed ++ " copies of "++show key++" exist. " ++