From 03836297a59c665f72176f3efecd448bac5e8423 Mon Sep 17 00:00:00 2001 From: Mark Lentczner Date: Sat, 24 Jul 2010 06:28:44 +0000 Subject: fields are def lists, tweak css for style menu, mini pages, arguments --- src/Haddock/Backends/Xhtml/Layout.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/Haddock/Backends/Xhtml/Layout.hs') diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 63b2b6c8..499d058a 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -109,8 +109,6 @@ divSubDecls cssClass captionName = maybe noHtml wrap subSection = thediv ! [theclass $ unwords ["subs", cssClass]] subCaption = paragraph ! [theclass "caption"] << captionName -{- - if we ever decide to style sub-declarations with dl lists, this code does it subDlist :: [SubDecl] -> Maybe Html subDlist [] = Nothing @@ -125,7 +123,6 @@ subDlist decls = Just $ dlist << map subEntry decls +++ clearDiv ma `with` bs = ma +++ bs clearDiv = thediv ! [ theclass "clear" ] << noHtml --} subTable :: [SubDecl] -> Maybe Html @@ -157,7 +154,7 @@ subConstructors = divSubDecls "constructors" "Constructors" . subTable subFields :: [SubDecl] -> Html -subFields = divSubDecls "fields" "Fields" . subTable +subFields = divSubDecls "fields" "Fields" . subDlist subInstances :: String -> [SubDecl] -> Html -- cgit v1.2.3