From d3ed4e26d0b2969ad7f99d35c8abd0590744a607 Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Sat, 17 Jul 2010 05:38:50 +0000 Subject: qualify import of XHtml as XHtml --- src/Haddock/Backends/Xhtml/Util.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Haddock/Backends/Xhtml/Util.hs') diff --git a/src/Haddock/Backends/Xhtml/Util.hs b/src/Haddock/Backends/Xhtml/Util.hs index 9db73742..bbd2814c 100644 --- a/src/Haddock/Backends/Xhtml/Util.hs +++ b/src/Haddock/Backends/Xhtml/Util.hs @@ -36,7 +36,7 @@ import Haddock.Utils import Data.Maybe import Text.XHtml hiding ( name, title, p, quote ) -import qualified Text.XHtml as Html +import qualified Text.XHtml as XHtml import GHC ( SrcSpan, srcSpanStartLine, Name ) import Module ( Module ) @@ -165,7 +165,7 @@ dot = toHtml "." -- The escaped form for IE 7 is probably erroneous and not needed... namedAnchor :: String -> Html -> Html -namedAnchor n c = anchor ! [Html.name n] << c +namedAnchor n c = anchor ! [XHtml.name n] << c linkedAnchor :: String -> Html -> Html linkedAnchor frag = anchor ! [href hr_] @@ -211,7 +211,7 @@ styleSheet = toHtml $ zipWith mkLink cssThemes rels where rels = ("stylesheet" : repeat "alternate stylesheet") mkLink (aTitle, aFile) aRel = - (thelink ! [href aFile, rel aRel, thetype "text/css", Html.title aTitle]) noHtml + (thelink ! [href aFile, rel aRel, thetype "text/css", XHtml.title aTitle]) noHtml stylePickers :: [Html] stylePickers = map mkPicker cssThemes -- cgit v1.2.3