X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=52b2a5673bada8ee7bbbcb2f55ee2a8722af37ca;hb=f83a5a68edb4b9dbdff1eebeed84527711efc728;hp=aaeee9b831c63dce8ae470a444902017381f5efe;hpb=72512afb8186c5e383bd2341ad67709958f70eac;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index aaeee9b..52b2a56 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -341,15 +341,16 @@ loadRule mod rules decl@(IfaceRuleDecl var body src_loc)
     mkImportedGlobalFromRdrName var		`thenRn` \ var_name ->
     returnRn ((unitNameSet var_name, (mod, RuleD decl)) `consBag` rules)
 
+-- SUP: TEMPORARY HACK, ignoring module deprecations and constructors for now
 loadDeprec :: Module -> DeprecationEnv -> RdrNameDeprecation -> RnM d DeprecationEnv
-loadDeprec mod deprec_env (DeprecMod txt)
+loadDeprec mod deprec_env (Deprecation (IEModuleContents _) txt)
   = traceRn (text "module deprecation not yet implemented:" <+> ppr mod <> colon <+> ppr txt) `thenRn_`
     returnRn deprec_env
-loadDeprec mod deprec_env (DeprecName rdr_name txt)
+loadDeprec mod deprec_env (Deprecation (IEVar rdr_name) txt)
   = setModuleRn (moduleName mod) $
     mkImportedGlobalFromRdrName rdr_name `thenRn` \ name ->
     traceRn (text "loaded deprecation for" <+> ppr name <> colon <+> ppr txt) `thenRn_`
-    returnRn (addToNameEnv deprec_env name (DeprecName name txt))
+    returnRn (addToNameEnv deprec_env name txt)
 \end{code}