[commit: ghc] wip/T15809: Wibble, to fix build (4e11d6c)

git at git.haskell.org git at git.haskell.org
Wed Nov 21 13:56:19 UTC 2018


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

On branch  : wip/T15809
Link       : http://ghc.haskell.org/trac/ghc/changeset/4e11d6c217226370681cd97bf04217271c63f21c/ghc

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

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

    Wibble, to fix build


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

4e11d6c217226370681cd97bf04217271c63f21c
 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



More information about the ghc-commits mailing list