aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-05-28 10:12:50 +0000
committersimonmar <unknown>2002-05-28 10:12:50 +0000
commit9d3ef8117fef546e96cabf5cd91d6dfdb167a330 (patch)
treede0ece419ddc52a1a3d2de794bb66e788c55bfc2 /src
parent8d5e4783e00cc0ed91d3dee3b503ab1c693a0403 (diff)
[haddock @ 2002-05-28 10:12:50 by simonmar]
Rename the module documentation properly (bug reported by Sven Panne).
Diffstat (limited to 'src')
-rw-r--r--src/HaddockRename.hs2
-rw-r--r--src/Main.hs13
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
}
)