[commit: ghc] master: Comments only (#11513) (0c420cb)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0c420cb6fdf25a6779785e18d88c9ca9d3695af1/ghc

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

commit 0c420cb6fdf25a6779785e18d88c9ca9d3695af1
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Wed Feb 17 16:22:22 2016 -0500

    Comments only (#11513)


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

0c420cb6fdf25a6779785e18d88c9ca9d3695af1
 compiler/basicTypes/DataCon.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/basicTypes/DataCon.hs b/compiler/basicTypes/DataCon.hs
index fd25c79..8552205 100644
--- a/compiler/basicTypes/DataCon.hs
+++ b/compiler/basicTypes/DataCon.hs
@@ -768,6 +768,8 @@ mkDataCon name declared_infix prom_info
 
     tag = assoc "mkDataCon" (tyConDataCons rep_tycon `zip` [fIRST_TAG..]) con
     rep_arg_tys = dataConRepArgTys con
+      -- NB: This type is user-facing for datatypes that don't need wrappers;
+      --     so it's important to use mkSpecForAllTys
     rep_ty = mkSpecForAllTys univ_tvs $ mkSpecForAllTys ex_tvs $
              mkFunTys rep_arg_tys $
              mkTyConApp rep_tycon (mkTyVarTys univ_tvs)