aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-07-05 17:17:59 +0000
committerIan Lynagh <igloo@earth.li>2009-07-05 17:17:59 +0000
commit99826c0fd307aa2690ef00be94e4f392fb73e155 (patch)
treef900095bf24e3cad7b099ba6b48be08037a1ebca /src/Haddock/Backends
parent8c73c6d1a729d353bd78f1751328212ad7f8e585 (diff)
Fix warnings
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/HH2.hs8
-rw-r--r--src/Haddock/Backends/HaddockDB.hs1
-rw-r--r--src/Haddock/Backends/Html.hs3
3 files changed, 9 insertions, 3 deletions
diff --git a/src/Haddock/Backends/HH2.hs b/src/Haddock/Backends/HH2.hs
index e9cf203c..f89e6ad6 100644
--- a/src/Haddock/Backends/HH2.hs
+++ b/src/Haddock/Backends/HH2.hs
@@ -11,16 +11,18 @@
module Haddock.Backends.HH2 (ppHH2Contents, ppHH2Index, ppHH2Files, ppHH2Collection) where
+import Haddock.Types
-ppHH2Contents, ppHH2Index, ppHH2Files, ppHH2Collection :: a
+ppHH2Files :: FilePath -> Maybe String -> [Interface] -> [FilePath] -> IO ()
+ppHH2Files = error "not yet"
+
+ppHH2Contents, ppHH2Index, ppHH2Collection :: a
ppHH2Contents = error "not yet"
ppHH2Index = error "not yet"
-ppHH2Files = error "not yet"
ppHH2Collection = error "not yet"
{-
import HaddockModuleTree
-import HaddockTypes
import HaddockUtil
import HsSyn2 hiding(Doc)
import qualified Map
diff --git a/src/Haddock/Backends/HaddockDB.hs b/src/Haddock/Backends/HaddockDB.hs
index 1ff09975..ee9722ad 100644
--- a/src/Haddock/Backends/HaddockDB.hs
+++ b/src/Haddock/Backends/HaddockDB.hs
@@ -22,6 +22,7 @@ import Text.PrettyPrint
-----------------------------------------------------------------------------
-- Printing the results in DocBook format
+ppDocBook :: a
ppDocBook = error "not working"
{-
ppDocBook :: FilePath -> [(Module, Interface)] -> String
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 4da9e6e0..3c25a429 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -379,6 +379,7 @@ mkNode ss (Node s leaf pkg short ts) depth id_ = htmlNode
mod_width = 50::Int {-em-}
+ td_pad_w :: Double -> Int -> Html -> HtmlTable
td_pad_w pad depth_ =
tda [thestyle ("padding-left: " ++ show pad ++ "em;" ++
"width: " ++ show (mod_width - depth_*2) ++ "em")]
@@ -543,6 +544,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format
tda [ theclass "indexentry" ] << toHtml str </>
aboves (map doAnnotatedEntity (zip [1..] many_entities))
+ doAnnotatedEntity :: (Integer, (Name, [(Module, Bool)])) -> HtmlTable
doAnnotatedEntity (j,(nm,entries))
= tda [ theclass "indexannot" ] <<
toHtml (show j) <+> parens (ppAnnot (nameOccName nm)) <->
@@ -1540,6 +1542,7 @@ ppr_mono_ty _ (HsPArrTy ty) u = pabrackets (ppr_mono_lty pREC_TOP
ppr_mono_ty _ (HsPredTy p) u = parens (ppPred u p)
ppr_mono_ty _ (HsNumTy n) _ = toHtml (show n) -- generics only
ppr_mono_ty _ (HsSpliceTy _) _ = error "ppr_mono_ty-haddock"
+ppr_mono_ty _ (HsRecTy _) _ = error "ppr_mono_ty HsRecTy"
ppr_mono_ty ctxt_prec (HsAppTy fun_ty arg_ty) unicode
= maybeParen ctxt_prec pREC_CON $