From 07c816c5e548824bb089442cf32d70682e47200b Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 26 Nov 2011 22:10:28 +0100 Subject: Fix module reference bug. --- src/Haddock/Backends/Xhtml/DocMarkup.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (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 87d67b76..f506d2b8 100644 --- a/src/Haddock/Backends/Xhtml/DocMarkup.hs +++ b/src/Haddock/Backends/Xhtml/DocMarkup.hs @@ -21,7 +21,6 @@ module Haddock.Backends.Xhtml.DocMarkup ( import Haddock.Backends.Xhtml.Names import Haddock.Backends.Xhtml.Utils -import Haddock.GhcUtils import Haddock.Types import Haddock.Utils @@ -39,7 +38,7 @@ parHtmlMarkup qual ppId = Markup { markupIdentifier = thecode . ppId, markupIdentifierUnchecked = thecode . ppUncheckedLink qual, markupModule = \m -> let (mdl,ref) = break (=='#') m - in ppModuleRef (mkModuleNoPackage mdl) ref, + in ppModuleRef (mkModuleName mdl) ref, markupEmphasis = emphasize, markupMonospaced = thecode, markupUnorderedList = unordList, -- cgit v1.2.3