diff options
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) |