include key in message
This commit is contained in:
parent
7e82d420d8
commit
fe4f1aae4b
1 changed files with 1 additions and 1 deletions
|
@ -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. " ++
|
||||||
|
|
Loading…
Reference in a new issue