X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=12069ff87e15b95e97c2e0b326284e6d50d09061;hp=4d9055fa8a533f1f42b45dc3021bf8e5816c3d2b;hb=63489d40bdee972656ff115ab2309b809c0e39fc;hpb=8a25c54e2df36b3fb40436e5b887dddc3c64ab54

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 4d9055f..12069ff 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -111,8 +111,6 @@ import Data.Maybe	( isJust )
 #include "HsVersions.h"
 \end{code}
 
-
-
 %************************************************************************
 %*									*
 	Typecheck and rename a module
@@ -130,7 +128,7 @@ tcRnModule :: HscEnv
 tcRnModule hsc_env hsc_src save_rn_syntax
 	 (L loc (HsModule maybe_mod export_ies 
 			  import_decls local_decls mod_deprec
-			  module_info maybe_doc))
+			  maybe_doc_hdr))
  = do { showPass (hsc_dflags hsc_env) "Renamer/typechecker" ;
 
    let { this_pkg = thisPackage (hsc_dflags hsc_env) ;
@@ -188,8 +186,9 @@ tcRnModule hsc_env hsc_src save_rn_syntax
 	-- because the latter might add new bindings for boot_dfuns, 
 	-- which may be mentioned in imported unfoldings
 
-		-- Rename the Haddock documentation 
-	tcg_env <- rnHaddock module_info maybe_doc tcg_env ;
+		-- Don't need to rename the Haddock documentation,
+		-- it's not parsed by GHC anymore.
+	tcg_env <- return (tcg_env { tcg_doc_hdr = maybe_doc_hdr }) ;
 
 		-- Report unused names
  	reportUnusedNames export_ies tcg_env ;