diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-14 23:43:42 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-14 23:43:42 +0000 |
| commit | 26a6eaaed227afbd5c8d47c04c72827c60d3935f (patch) | |
| tree | c3ff6d89de97ced562aab211152a22b0ba0d18bb /src/Haddock/Backends/Xhtml/Layout.hs | |
| parent | ab2ec30f12e283f4d28d1aa52b0980c96b0a7036 (diff) | |
clean up synopsis lists
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Layout.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index d9b1c250..86e75740 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -17,6 +17,8 @@ module Haddock.Backends.Xhtml.Layout ( sectionName, shortDeclList, + shortSubDecls, + divTopDecl, SubDecl, @@ -29,7 +31,7 @@ module Haddock.Backends.Xhtml.Layout ( topDeclElem, declElem, - argBox, vanillaTable, vanillaTable2 + vanillaTable, vanillaTable2 ) where import Haddock.Backends.Xhtml.DocMarkup @@ -65,6 +67,10 @@ sectionName = paragraph ! [theclass "caption"] shortDeclList :: [Html] -> Html shortDeclList items = ulist << map (li ! [theclass "src short"] <<) items +shortSubDecls :: [Html] -> Html +shortSubDecls items = ulist ! [theclass "subs"] << map (li <<) items + + divTopDecl :: Html -> Html divTopDecl = thediv ! [theclass "top"] @@ -163,13 +169,6 @@ topDeclElem ((_,_,maybe_source_url), (_,_,maybe_wiki_url)) loc name html = --- a box for displaying an 'argument' (some code which has text to the --- right of it). Wrapping is not allowed in these boxes, whereas it is --- in a declBox. -argBox :: Html -> HtmlTable -argBox html = tda [theclass "arg"] << html - - -- a vanilla table has width 100%, no border, no padding, no spacing vanillaTable, vanillaTable2 :: Html -> Html vanillaTable = table ! [theclass "vanilla", cellspacing 0, cellpadding 0] |