diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-17 05:38:50 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-17 05:38:50 +0000 |
| commit | d3ed4e26d0b2969ad7f99d35c8abd0590744a607 (patch) | |
| tree | f4f9e33f4c7f7653d82ffefdd25f2b5c061262ff | |
| parent | 84d0217a797e03b7b86af50de772931d5e3caae5 (diff) | |
qualify import of XHtml as XHtml
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Util.hs | 6 |
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 |