Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
0c88fe00
Commit
0c88fe00
authored
Jan 30, 2006
by
simonpj@microsoft.com
Browse files
Error message wibble
parent
eb57096f
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/typecheck/TcMatches.lhs
View file @
0c88fe00
...
...
@@ -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("argument
s
"))]
ptext SLIT("has") <+> speakNOf n_pats (ptext SLIT("argument"))]
match_ctxt = MC { mc_what = LambdaExpr,
mc_body = tcPolyExpr }
\end{code}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment