diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-13 05:26:21 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-13 05:26:21 +0000 |
| commit | 16c666804946a08870926f25205117104625b72e (patch) | |
| tree | 17e979d1ab136b28168b6ea457879c804c48adf5 /src/Haddock/Backends/Xhtml/Util.hs | |
| parent | 92eb93b4d7ede4a28aff90a1697951c6aef093cf (diff) | |
change to new page structure
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Util.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Util.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Util.hs b/src/Haddock/Backends/Xhtml/Util.hs index 9e13acd6..826b69f1 100644 --- a/src/Haddock/Backends/Xhtml/Util.hs +++ b/src/Haddock/Backends/Xhtml/Util.hs @@ -16,7 +16,7 @@ module Haddock.Backends.Xhtml.Util ( namedAnchor, linkedAnchor, spliceURL, - (<+>), char, empty, + (<+>), char, empty, nonEmpty, keyword, punctuate, braces, brackets, pabrackets, parens, parenList, ubxParenList, @@ -110,6 +110,11 @@ char c = toHtml [c] empty :: Html empty = noHtml +-- | ensure content contains at least something (a non-breaking space) +nonEmpty :: (HTML a) => a -> Html +nonEmpty a = if isNoHtml h then spaceHtml else h + where h = toHtml a + quote :: Html -> Html quote h = char '`' +++ h +++ '`' |