From 16e64e21368daa34abbce8b99da157a6a8bcdb57 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 27 May 2002 14:53:53 +0000
Subject: [haddock @ 2002-05-27 14:53:53 by simonmar] hyperlinked identifiers
 should be in <tt>

---
 src/HaddockHtml.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index b1d75fc7..85e7b2b8 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -833,7 +833,7 @@ htmlMarkup = Markup {
   markupEmpty	      = toHtml "",
   markupString        = toHtml,
   markupAppend        = (+++),
-  markupIdentifier    = ppHsQName . head,
+  markupIdentifier    = tt . ppHsQName . head,
   markupModule        = ppHsModule,
   markupEmphasis      = emphasize . toHtml,
   markupMonospaced    = tt . toHtml,
-- 
cgit v1.2.3