Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-generics1

http://hackage.haskell.org/trac/ghc/changeset/13e837d6c112ed80c4eb979efd22e0ec13ab05ae

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

commit 13e837d6c112ed80c4eb979efd22e0ec13ab05ae
Author: Jose Pedro Magalhaes <[email protected]>
Date:   Thu May 17 17:34:45 2012 +0100

    Small fix to the merge

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

 compiler/typecheck/TcGenGenerics.lhs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/typecheck/TcGenGenerics.lhs 
b/compiler/typecheck/TcGenGenerics.lhs
index 0473ce5..0f6e260 100644
--- a/compiler/typecheck/TcGenGenerics.lhs
+++ b/compiler/typecheck/TcGenGenerics.lhs
@@ -404,7 +404,7 @@ tc_mkRepFamInsts gk tycon metaDts mod =
          Gen1 -> tcLookupTyCon rep1TyConName
 
      ; let -- `tyvars` = [a,b]
-           tyvars     = (case gk of Gen0 -> id; Gen1 -> init) tyConTyVars tycon
+           tyvars     = (case gk of Gen0 -> id; Gen1 -> init) (tyConTyVars 
tycon)
            tyvar_args = mkTyVarTys tyvars
 
            -- `appT` = D a b



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to