diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2018-05-04 16:25:46 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2018-05-08 11:29:53 +0100 |
| commit | 5b3104ab290e12f0c24c097c1fe4c4a6bdcdab70 (patch) | |
| tree | eafef4373f72d2a7aeebddb4a224b786093346a8 /compiler/rename/RnSource.hs | |
| parent | 61b245a0c8abd365dcaa69b3190cf950603a1960 (diff) | |
| download | haskell-5b3104ab290e12f0c24c097c1fe4c4a6bdcdab70.tar.gz | |
Used named fields for DataDeclRn
Diffstat (limited to 'compiler/rename/RnSource.hs')
| -rw-r--r-- | compiler/rename/RnSource.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs index 065e72f202..502be23bc0 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -1561,11 +1561,14 @@ rnTyClDecl (DataDecl { tcdLName = tycon, tcdTyVars = tyvars, ; typeintype <- xoptM LangExt.TypeInType ; let cusk = hsTvbAllKinded tyvars' && (not typeintype || no_rhs_kvs) + rn_info = DataDeclRn { tcdDataCusk = cusk + , tcdFVs = fvs } ; traceRn "rndata" (ppr tycon <+> ppr cusk <+> ppr no_rhs_kvs) - ; return (DataDecl { tcdLName = tycon', tcdTyVars = tyvars' - , tcdFixity = fixity + ; return (DataDecl { tcdLName = tycon' + , tcdTyVars = tyvars' + , tcdFixity = fixity , tcdDataDefn = defn' - , tcdDExt = DataDeclRn cusk fvs }, fvs) } } + , tcdDExt = rn_info }, fvs) } } rnTyClDecl (ClassDecl { tcdCtxt = context, tcdLName = lcls, tcdTyVars = tyvars, tcdFixity = fixity, |