[commit: ghc] master: Fix minor mistake in comment about data decls. (4773b43)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4773b4308203a7f9d50a26831ccf56d8afe3c5e5/ghc

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

commit 4773b4308203a7f9d50a26831ccf56d8afe3c5e5
Author: Richard Eisenberg <rae at cs.brynmawr.edu>
Date:   Sun Dec 9 22:26:43 2018 -0500

    Fix minor mistake in comment about data decls.
    
    Fixes #16024. [skip ci]


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

4773b4308203a7f9d50a26831ccf56d8afe3c5e5
 compiler/typecheck/TcInstDcls.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcInstDcls.hs b/compiler/typecheck/TcInstDcls.hs
index e2150e7..2fb9857 100644
--- a/compiler/typecheck/TcInstDcls.hs
+++ b/compiler/typecheck/TcInstDcls.hs
@@ -784,8 +784,8 @@ tcDataFamHeader :: AssocInstInfo -> TyCon -> [Name] -> Maybe [LHsTyVarBndr GhcRn
                 -> HsTyPats GhcRn -> Maybe (LHsKind GhcRn) -> [LConDecl GhcRn]
                 -> TcM ([TyVar], [Type], Kind, ThetaType)
 -- The "header" is the part other than the data constructors themselves
--- e.g.  data instance D [a] :: * -> * = ...
--- Here the "header" is the bit before the "=" sign
+-- e.g.  data instance D [a] :: * -> * where ...
+-- Here the "header" is the bit before the "where"
 tcDataFamHeader mb_clsinfo fam_tc imp_vars mb_bndrs fixity hs_ctxt hs_pats m_ksig hs_cons
   = do { (imp_tvs, (exp_tvs, (stupid_theta, lhs_ty, res_kind)))
             <- pushTcLevelM_                                $