X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnMonad.lhs;h=d9fe12aa2f55538e59eddfa91d48a887fac473d9;hp=3b7a2e8379f1028b39bc157f0636dd6ec946bc73;hb=190f24892156953d73b55401d0467a6f1a88ce5d;hpb=00cc4d8773d1138f7b3b3ac122f3c98a6f93e68a

diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs
index 3b7a2e8..d9fe12a 100644
--- a/compiler/typecheck/TcRnMonad.lhs
+++ b/compiler/typecheck/TcRnMonad.lhs
@@ -22,7 +22,7 @@ import NameEnv          ( mkNameEnv )
 import TcEnv            ( tcExtendIdEnv )
 #endif
 
-import HsSyn		( emptyLHsBinds )
+import HsSyn		( emptyLHsBinds, HaddockModInfo(..) )
 import HscTypes		( HscEnv(..), ModGuts(..), ModIface(..),
 			  TypeEnv, emptyTypeEnv, HscSource(..), isHsBoot,
 			  ExternalPackageState(..), HomePackageTable,
@@ -120,7 +120,9 @@ initTc hsc_env hsc_src mod do_this
 		tcg_rules    = [],
 		tcg_fords    = [],
 		tcg_dfun_n   = dfun_n_var,
-		tcg_keep     = keep_var
+		tcg_keep     = keep_var,
+		tcg_doc      = Nothing,
+		tcg_hmi      = HaddockModInfo Nothing Nothing Nothing Nothing
 	     } ;
 	     lcl_env = TcLclEnv {
 		tcl_errs       = errs_var,