From: simonpj <unknown>
Date: Wed, 29 Oct 2003 18:10:57 +0000 (+0000)
Subject: [project @ 2003-10-29 18:10:57 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~313
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d51aa9da8ced82cc4762b6e69fd5f147fb5c7eb8;p=ghc-hetmet.git

[project @ 2003-10-29 18:10:57 by simonpj]
Put to and from the correct way round
---

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