X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;fp=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;h=a0297ad7eefa4711c2144ada8dc019a3ffae71f5;hb=d51aa9da8ced82cc4762b6e69fd5f147fb5c7eb8;hp=11f2a23a4bb6eb9f35929aeb8886b35fabcbb82d;hpb=0b9322d86ca2a18c495318a4cf44c9d35d5823b1;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 11f2a23..a0297ad 100644
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -254,11 +254,11 @@ mkGenericBinds tcs = andMonoBindList [ mkTyConGenBinds tc
 
 mkTyConGenBinds :: TyCon -> MonoBinds RdrName
 mkTyConGenBinds tycon
-  = FunMonoBind to_RDR False {- Not infix -}
+  = FunMonoBind from_RDR False {- Not infix -}
 		[mkSimpleHsAlt pat rhs | (pat,rhs) <- from_alts]
 		loc
 	`AndMonoBinds`
-    FunMonoBind from_RDR False 
+    FunMonoBind to_RDR False 
 		[mkSimpleHsAlt (VarPat to_arg) to_body] loc
   where
     loc	     = getSrcLoc tycon