diff options
| author | davve <davve@dtek.chalmers.se> | 2006-08-10 17:37:47 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-08-10 17:37:47 +0000 |
| commit | 20c21b530551f5174a10905e2517edff1333357f (patch) | |
| tree | 3437731513505b02470f25b9abf29e798c5bdfa2 /src/HaddockHtml.hs | |
| parent | f04ce12191b5e95fdf944c1805ef4faccb36758d (diff) | |
More progress
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 31254702..6fc9d21a 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -32,6 +32,7 @@ import Data.List ( sortBy ) import Data.Maybe ( fromJust, isJust, mapMaybe, fromMaybe ) import Foreign.Marshal.Alloc ( allocaBytes ) import System.IO ( IOMode(..), hClose, hGetBuf, hPutBuf ) +import Debug.Trace ( trace ) import GHC import Name @@ -41,7 +42,7 @@ import SrcLoc import FastString ( unpackFS ) import BasicTypes ( IPName(..), Boxity(..) ) import Kind ---import Outputable ( ppr, defaultUserStyle ) +import Outputable ( ppr, defaultUserStyle ) -- the base, module and entity URLs for the source code and wiki links. type SourceURLs = (Maybe String, Maybe String, Maybe String) @@ -556,7 +557,7 @@ hmodToHtml maybe_source_url maybe_wiki_url hmod no_doc_at_all = not (any has_doc exports) - contents = td << vanillaTable << ppModuleContents exports + contents = td << vanillaTable << ppModuleContents exports description = case hmod_rn_doc hmod of @@ -715,7 +716,10 @@ ppTyVars tvs = map ppName (tyvarNames tvs) tyvarNames = map f where f x = let NoLink n = hsTyVarName (unLoc x) in n -ppFor = undefined +ppFor summary links loc mbDoc (ForeignImport lname ltype _ _) + = ppSig summary links loc mbDoc (TypeSig lname ltype) +ppFor _ _ _ _ _ = error "ppFor" + ppDataDecl = undefined ppTySyn summary links loc mbDoc (TySynonym lname ltyvars ltype) |