aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml/Util.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-17 05:38:50 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-17 05:38:50 +0000
commitd3ed4e26d0b2969ad7f99d35c8abd0590744a607 (patch)
treef4f9e33f4c7f7653d82ffefdd25f2b5c061262ff /src/Haddock/Backends/Xhtml/Util.hs
parent84d0217a797e03b7b86af50de772931d5e3caae5 (diff)
qualify import of XHtml as XHtml
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Util.hs')
-rw-r--r--src/Haddock/Backends/Xhtml/Util.hs6
1 files changed, 3 insertions, 3 deletions
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