From: simonpj@microsoft.com <unknown>
Date: Mon, 30 Jan 2006 16:36:51 +0000 (+0000)
Subject: Error message wibble
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0c88fe0000481527a0a9f6305512ac2f605340d5

Error message wibble
---

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index d62eacd..07a1094 100644
--- a/ghc/compiler/typecheck/TcMatches.lhs
+++ b/ghc/compiler/typecheck/TcMatches.lhs
@@ -42,12 +42,9 @@ import TysWiredIn	( stringTy, boolTy, parrTyCon, listTyCon, mkListTy, mkPArrTy )
 import PrelNames	( bindMName, returnMName, mfixName, thenMName, failMName )
 import Id		( idType, mkLocalId )
 import TyCon		( TyCon )
-import Util		( isSingleton )
 import Outputable
 import SrcLoc		( Located(..), getLoc )
 import ErrUtils		( Message )
-
-import List		( nub )
 \end{code}
 
 %************************************************************************
@@ -115,7 +112,7 @@ tcMatchLambda match res_ty
     doc = sep [ ptext SLIT("The lambda expression")
 		 <+> quotes (pprSetDepth 1 $ pprMatches LambdaExpr match),
 			-- The pprSetDepth makes the abstraction print briefly
-		ptext SLIT("has") <+> speakNOf n_pats (ptext SLIT("arguments"))]
+		ptext SLIT("has") <+> speakNOf n_pats (ptext SLIT("argument"))]
     match_ctxt = MC { mc_what = LambdaExpr,
 		      mc_body = tcPolyExpr }
 \end{code}