+rnHaddock :: HaddockModInfo RdrName -> Maybe (HsDoc RdrName)
+ -> TcGblEnv -> RnM TcGblEnv
+rnHaddock module_info maybe_doc tcg_env
+ = do { rn_module_doc <- rnMbHsDoc maybe_doc ;
+
+ -- Rename the Haddock module info
+ ; rn_description <- rnMbHsDoc (hmi_description module_info)
+ ; let { rn_module_info = module_info { hmi_description = rn_description } }
+
+ ; return (tcg_env { tcg_doc = rn_module_doc,
+ tcg_hmi = rn_module_info }) }
+
+rnMbHsDoc :: Maybe (HsDoc RdrName) -> RnM (Maybe (HsDoc Name))