diff options
| author | simonpj@microsoft.com <unknown> | 2007-05-02 16:34:57 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-05-02 16:34:57 +0000 |
| commit | ff8e1d01524b48e028b09e2b04b2e5303cb6d95f (patch) | |
| tree | 35b6a148ed905994b7dca04414aec18d7c9b64d7 /compiler/parser | |
| parent | 86bec4298d582ef1d8f0a201d6a81145e1be9498 (diff) | |
| download | haskell-ff8e1d01524b48e028b09e2b04b2e5303cb6d95f.tar.gz | |
Make records work properly with type families
This fixes Trac #1204. There's quite a delicate interaction of
GADTs, type families, records, and in particular record updates.
Test is indexed-types/should_compile/Records.hs
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/RdrHsSyn.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index 7a6a0e96b2..8eea79705d 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -872,7 +872,7 @@ mkRecConstrOrUpdate mkRecConstrOrUpdate (L l (HsVar c)) loc fs | isRdrDataCon c = return (RecordCon (L l c) noPostTcExpr fs) mkRecConstrOrUpdate exp loc fs@(HsRecordBinds (_:_)) - = return (RecordUpd exp fs placeHolderType placeHolderType) + = return (RecordUpd exp fs [] [] []) mkRecConstrOrUpdate _ loc (HsRecordBinds []) = parseError loc "Empty record update" |