From d51aa9da8ced82cc4762b6e69fd5f147fb5c7eb8 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 29 Oct 2003 18:10:57 +0000
Subject: [PATCH] [project @ 2003-10-29 18:10:57 by simonpj] Put to and from
 the correct way round

---
 ghc/compiler/types/Generics.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4