diff options
| author | simonmar <unknown> | 2002-04-25 14:40:05 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-25 14:40:05 +0000 |
| commit | 6395502702ae2cf4f4ff969fce2b984e603f0f86 (patch) | |
| tree | 69f42c9a9c3e49e0745a9d5937277b8587ebe79b /src/HaddockRename.hs | |
| parent | 044cea8101424a367d578d4943553e5b20bd6ec0 (diff) | |
[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.
Diffstat (limited to 'src/HaddockRename.hs')
| -rw-r--r-- | src/HaddockRename.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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) |