aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2012-02-04 03:07:51 +0100
committerDavid Waern <david.waern@gmail.com>2012-02-04 03:07:51 +0100
commit80e2f0460ea89fe5eeb4c389d76ea55a464b2e63 (patch)
tree4b7eedbc59251b2aee91743c07141b12103f433e /src/Haddock
parent5e0812943b3da5952e9c50fb93f6079cb9f1c858 (diff)
Style police.
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs4
1 files changed, 2 insertions, 2 deletions
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