NamedFieldPuns broken in where clauses
The attached file compiles fine under GHC 6.10. However, under 6.12, it produces the error
BadPun.hs:8:17:
Conflicting definitions for `pun-right-hand-side'
In the binding group for: pun-right-hand-side, pun-right-hand-side,
pun-right-hand-side
Note that this affects the named field puns only in the where clause of badPun
; goodPun
, which uses them in the LHS of a top-level definition, does not have this problem.
A possibly interesting additional note is that if you change Record{f1,f2,
... to Record{f1=f1,f2,
..., you'll find that you get this error message instead:
BadPun.hs:8:23:
Conflicting definitions for `pun-right-hand-side'
In the binding group for: f1, pun-right-hand-side,
pun-right-hand-side
Changing f2
to f2=f2
as well makes the error go away, presumably because there's now only one pun-right-hand-side
defined.
Trac metadata
Trac field | Value |
---|---|
Version | 6.12.1 RC1 |
Type | Bug |
TypeOfFailure | OtherFailure |
Priority | normal |
Resolution | Unresolved |
Component | Compiler |
Test case | |
Differential revisions | |
BlockedBy | |
Related | |
Blocking | |
CC | |
Operating system | |
Architecture |