Commit e2b5796d authored by's avatar
Browse files

Improve 'my head exploded' error message

parent 13c7a6e6
......@@ -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)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment