[commit: ghc] wip/T15809: Wibble, to fix build (2d7a153)

[git at git.haskell.org]

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

On branch  : wip/T15809
Link       : http://ghc.haskell.org/trac/ghc/changeset/2d7a1532cf0a36dc6dde9f05b3ad9ba4b762b3b1/ghc

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

commit 2d7a1532cf0a36dc6dde9f05b3ad9ba4b762b3b1
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Nov 21 13:55:54 2018 +0000

    Wibble, to fix build


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

2d7a1532cf0a36dc6dde9f05b3ad9ba4b762b3b1
 compiler/typecheck/TcTyClsDecls.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcTyClsDecls.hs b/compiler/typecheck/TcTyClsDecls.hs
index 7a8bc9e..1fc675c 100644
--- a/compiler/typecheck/TcTyClsDecls.hs
+++ b/compiler/typecheck/TcTyClsDecls.hs
@@ -1769,7 +1769,7 @@ tcTyFamInstEqn fam_tc mb_clsinfo
        ; (qtvs, pats, rhs_ty) <- tcFamTyPatsAndGen fam_tc mb_clsinfo
                                       imp_vars (mb_expl_bndrs `orElse` [])
                                       hs_pats
-                                      (tcCheckLHsType rhs_hs_ty res_kind)
+                                      (tcCheckLHsType rhs_hs_ty)
 
        ; (ze, qtvs') <- zonkTyBndrs qtvs
        ; pats'       <- zonkTcTypesToTypesX ze pats