X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;fp=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;h=2465364c826c28c02e87e5e8357bf4561357c940;hb=ef5b4b146aa172d8ac10f39b5eb3d7a0f948d8f1;hp=61b1a0f470772d06cae70c73d5f66a732ca43a45;hpb=1f8b341a88b6b60935b0ce80b59ed6e356b8cfbf;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 61b1a0f..2465364 100644
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -18,7 +18,7 @@ import DataCon          ( DataCon, dataConOrigArgTys, isVanillaDataCon,
 import TyCon            ( TyCon, tyConName, tyConDataCons, 
 			  isBoxedTupleTyCon
 			)
-import Name		( nameModuleName, nameOccName, getSrcLoc )
+import Name		( nameModule, nameOccName, getSrcLoc )
 import OccName		( mkGenOcc1, mkGenOcc2 )
 import RdrName		( RdrName, getRdrName, mkVarUnqual, mkOrig )
 import BasicTypes       ( EP(..), Boxity(..) )
@@ -392,7 +392,7 @@ mkGenericNames tycon
   where
     tc_name  = tyConName tycon
     tc_occ   = nameOccName tc_name
-    tc_mod   = nameModuleName tc_name
+    tc_mod   = nameModule tc_name
     from_RDR = mkOrig tc_mod (mkGenOcc1 tc_occ)
     to_RDR   = mkOrig tc_mod (mkGenOcc2 tc_occ)
 \end{code}