From 769bfb301703d5d028d91189744f41ddef144854 Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 10 Oct 2008 22:35:49 +0000 Subject: Add support for DocPic The support for DocPic was merged into the GHC source long ago, but the support in Haddock was forgotten. Thanks Peter Gavin for submitting this fix! --- src/Haddock/Utils.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Haddock/Utils.hs') diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index 8fe64b30..4c2a7a8e 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -330,6 +330,7 @@ markup m (DocDefList ds) = markupDefList m (map (markupPair m) ds) markup m (DocCodeBlock d) = markupCodeBlock m (markup m d) markup m (DocURL url) = markupURL m url markup m (DocAName ref) = markupAName m ref +markup m (DocPic img) = markupPic m img markupPair :: DocMarkup id a -> (HsDoc id, HsDoc id) -> (a, a) markupPair m (a,b) = (markup m a, markup m b) @@ -349,8 +350,9 @@ idMarkup = Markup { markupOrderedList = DocOrderedList, markupDefList = DocDefList, markupCodeBlock = DocCodeBlock, - markupURL = DocURL, - markupAName = DocAName + markupURL = DocURL, + markupAName = DocAName, + markupPic = DocPic } -- | Since marking up is just a matter of mapping 'Doc' into some -- cgit v1.2.3