From d3ebf5f25ead73877b38302cbe8b1ed13e993917 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Mon, 19 Jul 2010 05:20:53 +0000
Subject: refactoring of anchor ID and fragment handling

---
 src/Haddock/Backends/Xhtml/DocMarkup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock/Backends/Xhtml/DocMarkup.hs')

diff --git a/src/Haddock/Backends/Xhtml/DocMarkup.hs b/src/Haddock/Backends/Xhtml/DocMarkup.hs
index 6563f914..42fc39ca 100644
--- a/src/Haddock/Backends/Xhtml/DocMarkup.hs
+++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs
@@ -39,7 +39,7 @@ parHtmlMarkup ppId isTyCon = Markup {
   markupAppend        = (+++),
   markupIdentifier    = thecode . ppId . choose,
   markupModule        = \m -> let (mdl,ref) = break (=='#') m
-                              in ppModule (mkModuleNoPackage mdl) ref,
+                              in ppModuleRef (mkModuleNoPackage mdl) ref,
   markupEmphasis      = emphasize,
   markupMonospaced    = thecode,
   markupUnorderedList = unordList,
-- 
cgit v1.2.3