diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-06-17 22:20:56 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-06-17 22:20:56 +0000 |
| commit | 92eb93b4d7ede4a28aff90a1697951c6aef093cf (patch) | |
| tree | a15c8846410a24b49f906f6369303873e420e624 /src/Haddock/Backends/Xhtml | |
| parent | 3da5ad49bb4e18705fdf0f3428648ed425e8009b (diff) | |
remove <++> connector
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Util.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Haddock/Backends/Xhtml/Util.hs b/src/Haddock/Backends/Xhtml/Util.hs index 8229e002..9e13acd6 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, keyword, punctuate, braces, brackets, pabrackets, parens, parenList, ubxParenList, @@ -93,13 +93,10 @@ hsep :: [Html] -> Html hsep [] = noHtml hsep htmls = foldr1 (\a b -> a+++" "+++b) htmls -infixr 8 <+>, <++> +infixr 8 <+> (<+>) :: Html -> Html -> Html a <+> b = a +++ toHtml " " +++ b -(<++>) :: Html -> Html -> Html -a <++> b = a +++ spaceHtml +++ b - keyword :: String -> Html keyword s = thespan ! [theclass "keyword"] << toHtml s |