diff options
| author | simonmar <unknown> | 2002-05-28 10:12:50 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-05-28 10:12:50 +0000 |
| commit | 9d3ef8117fef546e96cabf5cd91d6dfdb167a330 (patch) | |
| tree | de0ece419ddc52a1a3d2de794bb66e788c55bfc2 | |
| parent | 8d5e4783e00cc0ed91d3dee3b503ab1c693a0403 (diff) | |
[haddock @ 2002-05-28 10:12:50 by simonmar]
Rename the module documentation properly (bug reported by Sven Panne).
| -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 } ) |