Error message wibble

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

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index d62eacd..07a1094 100644 (file)
--- 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}