aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-06-11 21:34:08 +0000
committerMark Lentczner <markl@glyphic.com>2010-06-11 21:34:08 +0000
commit24a137306dfc62f32b292cefaabb91da52a6bf3e (patch)
tree80b5a863286b8c8f79427041e7153e34a9364dd3 /src/Haddock/Backends/Xhtml
parentd28046248d457f9082e39b1b4de529e20f62379d (diff)
changed tt elements to code elements
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
-rw-r--r--src/Haddock/Backends/Xhtml/DocMarkup.hs4
1 files changed, 2 insertions, 2 deletions
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,