[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 (file)
--- 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