From 24a137306dfc62f32b292cefaabb91da52a6bf3e Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 11 Jun 2010 21:34:08 +0000
Subject: changed tt elements to code elements

---
 src/Haddock/Backends/Xhtml/DocMarkup.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Haddock/Backends')

diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs
index fda7c7d2..0d4593a3 100644
--- a/src/Haddock/Backends/Xhtml/DocMarkup.hs
+++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs
@@ -35,11 +35,11 @@ parHtmlMarkup ppId isTyCon = Markup {
   markupString        = toHtml,
   markupParagraph     = paragraph,
   markupAppend        = (+++),
-  markupIdentifier    = tt . ppId . choose,
+  markupIdentifier    = thecode . ppId . choose,
   markupModule        = \m -> let (mdl,ref) = break (=='#') m
                               in ppModule (mkModuleNoPackage mdl) ref,
   markupEmphasis      = emphasize,
-  markupMonospaced    = tt,
+  markupMonospaced    = thecode,
   markupUnorderedList = unordList,
   markupOrderedList   = ordList,
   markupDefList       = defList,
-- 
cgit v1.2.3