diff options
Diffstat (limited to 'src/HaddockRename.hs')
| -rw-r--r-- | src/HaddockRename.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs index ef32ae80..ad90c1a2 100644 --- a/src/HaddockRename.hs +++ b/src/HaddockRename.hs @@ -213,11 +213,14 @@ markupRename = Markup { markupMonospaced = liftM DocMonospaced, markupUnorderedList = liftM DocUnorderedList . sequence, markupOrderedList = liftM DocOrderedList . sequence, + markupDefList = liftM DocDefList . mapM markupDef, markupCodeBlock = liftM DocCodeBlock, markupURL = return . DocURL, markupAName = return . DocAName } +markupDef (ma,mb) = do a <- ma; b <- mb; return (a,b) + renameDoc :: Doc -> RnM Doc renameDoc = markup markupRename |