projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eb57096
)
Error message wibble
author
simonpj@microsoft.com
<unknown>
Mon, 30 Jan 2006 16:36:51 +0000
(16:36 +0000)
committer
simonpj@microsoft.com
<unknown>
Mon, 30 Jan 2006 16:36:51 +0000
(16:36 +0000)
ghc/compiler/typecheck/TcMatches.lhs
patch
|
blob
|
history
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 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 Outputable
import SrcLoc ( Located(..), getLoc )
import ErrUtils ( Message )
-
-import List ( nub )
\end{code}
%************************************************************************
\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
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}
match_ctxt = MC { mc_what = LambdaExpr,
mc_body = tcPolyExpr }
\end{code}