[project @ 2004-10-11 12:45:51 by simonpj]

Improve error message

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index 5720121..3d88d32 100644 (file)
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -531,6 +531,6 @@ missingSigWarn var
     loc = nameSrcLoc var  -- TODO: make a proper span
 
 methodBindErr mbind
- =  hang (ptext SLIT("Can't handle multiple methods defined by one pattern binding"))
+ =  hang (ptext SLIT("Pattern bindings (except simple variables) not allowed in instance declarations"))
        4 (ppr mbind)
 \end{code}