From 6395502702ae2cf4f4ff969fce2b984e603f0f86 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 25 Apr 2002 14:40:05 +0000
Subject: [haddock @ 2002-04-25 14:40:05 by simonmar] - Add support for named
 chunks of documentation which can be   referenced from the export list.

- Copy the icon from $libdir to the destination in HTML mode.
---
 src/HaddockRename.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/HaddockRename.hs')

diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs
index d43fb959..9dfa7147 100644
--- a/src/HaddockRename.hs
+++ b/src/HaddockRename.hs
@@ -69,6 +69,9 @@ renameExportList spec = mapM renameExport spec
 	     lookupRn (\x' -> HsEThingWith x' cs') x
     renameExport (HsEModuleContents m) = return (HsEModuleContents m)
     renameExport (HsEGroup lev str) = return (HsEGroup lev str)
+    renameExport (HsEDoc str) = return (HsEDoc str)
+    renameExport (HsEDocNamed str) = return (HsEDocNamed str)
+
 
 renameDecl :: HsDecl -> RnM HsDecl
 renameDecl decl
@@ -197,3 +200,6 @@ renameExportItems items = mapM rn items
 	rn (ExportDecl decl)
 	   = do decl <- renameDecl decl
 		return (ExportDecl decl)
+	rn (ExportDoc doc)
+	   = do doc <- renameDoc doc
+		return (ExportDoc doc)
-- 
cgit v1.2.3