[project @ 2004-09-30 10:35:15 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcTyDecls.lhs

diff --git a/ghc/compiler/typecheck/TcTyDecls.lhs b/ghc/compiler/typecheck/TcTyDecls.lhs
index 1501d56..a0d019a 100644 (file)
--- a/ghc/compiler/typecheck/TcTyDecls.lhs
+++ b/ghc/compiler/typecheck/TcTyDecls.lhs
@@ -28,7 +28,7 @@ import TyCon            ( TyCon, ArgVrcs, tyConArity, tyConDataCons, tyConTyVars
                           getSynTyConDefn, isSynTyCon, isAlgTyCon, isHiBootTyCon,
                          tyConName, isNewTyCon, isProductTyCon, tyConArgVrcs, newTyConRhs )
 import Class           ( classTyCon )
-import DataCon          ( dataConRepArgTys, dataConOrigArgTys )
+import DataCon          ( dataConOrigArgTys )
 import Var              ( TyVar )
 import VarSet
 import Name            ( Name, isTyVarName )
@@ -362,7 +362,7 @@ calcTyConArgVrcs tyclss
       where
                data_cons = tyConDataCons tc
                vs        = tyConTyVars tc
-               argtys    = concatMap dataConRepArgTys data_cons        -- Rep? or Orig?
+               argtys    = concatMap dataConOrigArgTys data_cons       -- Rep? or Orig?
 
     tcaoIter oi tc | isSynTyCon tc
       = let (tyvs,ty) = getSynTyConDefn tc