[project @ 1999-01-27 14:51:14 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcMatches.lhs

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index 58ddd03..c5900a8 100644 (file)
--- a/ghc/compiler/typecheck/TcMatches.lhs
+++ b/ghc/compiler/typecheck/TcMatches.lhs
@@ -378,7 +378,7 @@ sameNoOfArgs matches = length (nub (map args_in_match matches)) == 1
 
 \begin{code}
 matchCtxt CaseAlt match
-  = hang (ptext SLIT("In a \"case\" branch:"))
+  = hang (ptext SLIT("In a case alternative:"))
         4 (pprMatch (True,empty) {-is_case-} match)
 
 matchCtxt (FunRhs fun) match