Extension RecordWildCards is broken

The -XRecordWildCards extension is broken (unlike the patch I sent :)). Try these modules:

module M1 where
data T = T { a :: Int }

module M2 where
import M1
f T{..} = a + 1

Compiling these gives

ghc -XRecordWildCards --make M2.hs 
[1 of 2] Compiling M1               ( M1.hs, M1.o )
[2 of 2] Compiling M2               ( M2.hs, M2.o )

M2.hs:4:2: Not in scope: `a'

Trac metadata

Trac field	Value
Version	6.7
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC	lennart.augustsson@credit-suisse.com
Operating system
Architecture	Unknown