From 9d3ef8117fef546e96cabf5cd91d6dfdb167a330 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 28 May 2002 10:12:50 +0000
Subject: [haddock @ 2002-05-28 10:12:50 by simonmar] Rename the module
 documentation properly (bug reported by Sven Panne).

---
 src/HaddockRename.hs |  2 +-
 src/Main.hs          | 13 ++++++++++---
 2 files changed, 11 insertions(+), 4 deletions(-)

(limited to 'src')

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
 		}
       	  )
-- 
cgit v1.2.3