X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;fp=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;h=d6a4278a37103e9cec370bebe63293bd83c3bff3;hb=a7ecdf96844404b7bc8273d4ff6d85759278427c;hp=aa7ccf208f7187056446c6b8fd0b35ba6edd6d2e;hpb=8a9aba1ff5e66aad02aba0997339ea6ec60d6b1e;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index aa7ccf2..d6a4278 100644
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -256,12 +256,14 @@ type FromAlt = (LPat RdrName, LHsExpr RdrName)
 mkTyConGenericBinds :: TyCon -> LHsBinds RdrName
 mkTyConGenericBinds tycon
   = unitBag (L loc (FunBind (L loc from_RDR) False {- Not infix -}
-		 	    (mkMatchGroup [mkSimpleHsAlt pat rhs | (pat,rhs) <- from_alts])))
+		 	    from_matches placeHolderNames))
 
 	`unionBags`
     unitBag (L loc (FunBind (L loc to_RDR) False 
-			    (mkMatchGroup [mkSimpleHsAlt to_pat to_body])))
+			    to_matches placeHolderNames))
   where
+    from_matches = mkMatchGroup [mkSimpleHsAlt pat rhs | (pat,rhs) <- from_alts]
+    to_matches   = mkMatchGroup [mkSimpleHsAlt to_pat to_body]
     loc	     = srcLocSpan (getSrcLoc tycon)
     datacons = tyConDataCons tycon
     (from_RDR, to_RDR) = mkGenericNames tycon