From 769bfb301703d5d028d91189744f41ddef144854 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
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/Backends/Html.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Haddock/Backends/Html.hs')

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 8b72c1ac..ba304e5c 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1496,6 +1496,7 @@ parHtmlMarkup ppId = Markup {
   markupEmphasis      = emphasize . toHtml,
   markupMonospaced    = tt . toHtml,
   markupUnorderedList = ulist . concatHtml . map (li <<),
+  markupPic           = \path -> image ! [src path],
   markupOrderedList   = olist . concatHtml . map (li <<),
   markupDefList       = dlist . concatHtml . map markupDef,
   markupCodeBlock     = pre,
-- 
cgit v1.2.3