Commit bc5b8fb6 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix Trac #2331 (error message suggestion)

parent 9d1247b3
......@@ -689,7 +689,7 @@ checkAPat loc e = case e of
| bang == bang_RDR
-> do { bang_on <- extension bangPatEnabled
; if bang_on then checkLPat e >>= (return . BangPat)
else parseError loc "Illegal bang-pattern (use -fbang-patterns)" }
else parseError loc "Illegal bang-pattern (use -XBangPatterns)" }
ELazyPat e -> checkLPat e >>= (return . LazyPat)
EAsPat n e -> checkLPat e >>= (return . AsPat n)
......
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