[commit: ghc] master: Used named fields for DataDeclRn (5b3104a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5b3104ab290e12f0c24c097c1fe4c4a6bdcdab70/ghc

>---------------------------------------------------------------

commit 5b3104ab290e12f0c24c097c1fe4c4a6bdcdab70
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri May 4 16:25:46 2018 +0100

    Used named fields for DataDeclRn


>---------------------------------------------------------------

5b3104ab290e12f0c24c097c1fe4c4a6bdcdab70
 compiler/rename/RnSource.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs
index 065e72f..502be23 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,