From 80e2f0460ea89fe5eeb4c389d76ea55a464b2e63 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 4 Feb 2012 03:07:51 +0100 Subject: Style police. --- src/Haddock/Backends/Xhtml/Layout.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock') diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index da17552c..3ddbd28b 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -67,8 +67,8 @@ sectionName :: Html -> Html sectionName = paragraph ! [theclass "caption"] --- | Make an element that always has at least something (a non-breaking space) --- If it would have otherwise been empty, then give it the class ".empty" +-- | Make an element that always has at least something (a non-breaking space). +-- If it would have otherwise been empty, then give it the class ".empty". nonEmptySectionName :: Html -> Html nonEmptySectionName c | isNoHtml c = paragraph ! [theclass "caption empty"] $ spaceHtml -- cgit v1.2.3