From 28bd97759174c9169b7633ee45d39c82fd069dd9 Mon Sep 17 00:00:00 2001
From: "simon.hengel" <simon.hengel@wiktory.org>
Date: Fri, 2 Apr 2010 14:08:40 +0000
Subject: Add markup support for interactive examples

---
 src/Haddock/Interface/Rename.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Haddock/Interface/Rename.hs')

diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 80dc7d14..8e1476d3 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -202,6 +202,7 @@ renameDoc d = case d of
   DocURL str -> return (DocURL str)
   DocPic str -> return (DocPic str)
   DocAName str -> return (DocAName str)
+  DocExamples e -> return (DocExamples e)
 
 
 renameFnArgsDoc :: FnArgsDoc Name -> RnM (FnArgsDoc DocName)
-- 
cgit v1.2.3