diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-04-12 04:56:27 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-04-12 04:56:27 +0000 |
| commit | 6554de2b6751212fdc14e5d814d9f61dfe9eadb5 (patch) | |
| tree | fa151da6bf2d437c1b7d9fc0998588c77bba81c3 /src/Haddock/Backends/Xhtml/Layout.hs | |
| parent | e47a34759f9ff5f7cd99c8901a9c51d7c5800253 (diff) | |
removed declWithDoc and cleaned up data decls in summary
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Layout.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 93ce0987..124d6150 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -24,17 +24,6 @@ import FastString ( unpackFS ) import GHC -declWithDoc :: Bool -> LinksInfo -> SrcSpan -> DocName -> Maybe (Doc DocName) -> Html -> Html -declWithDoc True _ _ _ _ html_decl = declElem html_decl -declWithDoc False links loc nm doc html_decl = - topDeclElem links loc nm html_decl +++ maybeDocToHtml doc - - -{- -text :: Html -text = strAttr "TEXT" --} - -- a box for displaying code declElem :: Html -> Html declElem = paragraph ! [theclass "decl"] |