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/Types.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Haddock/Types.hs')

diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 5a76a63e..fe963f42 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -188,7 +188,8 @@ data DocMarkup id a = Markup {
   markupDefList       :: [(a,a)] -> a,
   markupCodeBlock     :: a -> a,
   markupURL           :: String -> a,
-  markupAName         :: String -> a
+  markupAName         :: String -> a,
+  markupPic           :: String -> a
 }
 
 
-- 
cgit v1.2.3