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:
13c7a6e
)
Improve 'my head exploded' error message
author
simonpj@microsoft.com
<unknown>
Thu, 21 Jun 2007 13:16:50 +0000
(13:16 +0000)
committer
simonpj@microsoft.com
<unknown>
Thu, 21 Jun 2007 13:16:50 +0000
(13:16 +0000)
compiler/typecheck/TcPat.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/TcPat.lhs
b/compiler/typecheck/TcPat.lhs
index
4d5aaf6
..
a8e2d39
100644
(file)
--- a/
compiler/typecheck/TcPat.lhs
+++ b/
compiler/typecheck/TcPat.lhs
@@
-920,6
+920,7
@@
patCtxt pat = Just (hang (ptext SLIT("In the pattern:"))
existentialExplode pat
= hang (vcat [text "My brain just exploded.",
text "I can't handle pattern bindings for existentially-quantified constructors.",
+ text "Instead, use a case-expression to unpack the constructor.",
text "In the binding group for"])
4 (ppr pat)