diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-06-11 21:34:08 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-06-11 21:34:08 +0000 |
| commit | 24a137306dfc62f32b292cefaabb91da52a6bf3e (patch) | |
| tree | 80b5a863286b8c8f79427041e7153e34a9364dd3 | |
| parent | d28046248d457f9082e39b1b4de529e20f62379d (diff) | |
changed tt elements to code elements
| -rw-r--r-- | src/Haddock/Backends/Xhtml/DocMarkup.hs | 4 |
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, |