diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-22 06:22:23 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-22 06:22:23 +0000 |
| commit | 7e2afa2b0d80759066fd872bc6900c59534b0b46 (patch) | |
| tree | 0e7be91d6e6211bdf2be0b552ca305784ae10a59 /src/Main.hs | |
| parent | 04cd27123ea28902e67cdc989f573056b9f70616 (diff) | |
remove old HTML backend
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/src/Main.hs b/src/Main.hs index b3613a51..f75dcad9 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -18,9 +18,8 @@ module Main (main) where -import qualified Haddock.Backends.Html as Html -import qualified Haddock.Backends.Xhtml as Xhtml -import qualified Haddock.Backends.LaTeX as LaTeX +import Haddock.Backends.Xhtml +import Haddock.Backends.LaTeX import Haddock.Backends.Hoogle import Haddock.Interface import Haddock.Lex @@ -195,14 +194,6 @@ render flags ifaces installedIfaces = do packageStr = Just (modulePackageString packageMod) (pkgName,pkgVer) = modulePackageInfo packageMod - -- Which HTML rendering to use. - pick htmlF xhtmlF = if Flag_Xhtml `elem` flags then xhtmlF else htmlF - ppHtmlIndex = pick Html.ppHtmlIndex Xhtml.ppHtmlIndex - ppHtmlHelpFiles = pick Html.ppHtmlHelpFiles Xhtml.ppHtmlHelpFiles - ppHtmlContents = pick Html.ppHtmlContents Xhtml.ppHtmlContents - ppHtml = pick Html.ppHtml Xhtml.ppHtml - copyHtmlBits = pick Html.copyHtmlBits Xhtml.copyHtmlBits - libDir <- getHaddockLibDir flags prologue <- getPrologue flags @@ -233,7 +224,7 @@ render flags ifaces installedIfaces = do ppHoogle pkgName2 pkgVer title prologue visibleIfaces odir when (Flag_LaTeX `elem` flags) $ do - LaTeX.ppLaTeX title packageStr visibleIfaces odir prologue opt_latex_style + ppLaTeX title packageStr visibleIfaces odir prologue opt_latex_style libDir ------------------------------------------------------------------------------- |