X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnMonad.lhs;h=06185bed4e87218cd83c4a70028757c80f016d08;hp=8d9273750e33b7d562c70801449d29754d114170;hb=63489d40bdee972656ff115ab2309b809c0e39fc;hpb=8a25c54e2df36b3fb40436e5b887dddc3c64ab54

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index 8d92737..06185be 100644
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -114,8 +114,7 @@ initTc hsc_env hsc_src keep_rn_syntax mod do_this
 		tcg_fords    = [],
 		tcg_dfun_n   = dfun_n_var,
 		tcg_keep     = keep_var,
-		tcg_doc      = Nothing,
-		tcg_hmi      = HaddockModInfo Nothing Nothing Nothing Nothing,
+		tcg_doc_hdr  = Nothing,
                 tcg_hpc      = False
 	     } ;
 	     lcl_env = TcLclEnv {