diff options
| -rw-r--r-- | src/HaddockRename.hs | 2 | ||||
| -rw-r--r-- | src/Main.hs | 13 |
2 files changed, 11 insertions, 4 deletions
diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs index a759178e..71407cb9 100644 --- a/src/HaddockRename.hs +++ b/src/HaddockRename.hs @@ -10,7 +10,7 @@ module HaddockRename ( renameExportList, renameDecl, renameExportItems, - renameDoc, + renameDoc, renameMaybeDoc, ) where import HaddockTypes diff --git a/src/Main.hs b/src/Main.hs index 504a0e66..2c6b45b8 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -222,10 +222,17 @@ mkInterface mod_map filename name_env = listToFM [ (nameOfQName n, n) | n <- exported_names ] + let + (orig_module_doc, missing_names4) + = runRnFM orig_env (renameMaybeDoc maybe_doc) + + (final_module_doc, _missing_names5) + = runRnFM import_env (renameMaybeDoc orig_module_doc) + -- report any names we couldn't find/resolve - let missing_names = missing_names1 ++ missing_names2 - --ignore missing_names3 for now, + let missing_names = missing_names1 ++ missing_names2 ++ missing_names4 + --ignore missing_names3 & missing_names5 for now name_strings = nub (map show missing_names) when (not (null name_strings)) $ @@ -242,7 +249,7 @@ mkInterface mod_map filename iface_insts = instances, iface_decls = decl_map, iface_info = maybe_info, - iface_doc = maybe_doc, + iface_doc = final_module_doc, iface_options = options } ) |