aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-02-09 18:27:36 +0000
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-02-10 21:37:48 +0000
commit01de3a355ee0db773eba5f4368ac8ef4d75425b5 (patch)
tree45916e415a34583a82d46f828caaf41d69be7896 /src/Haddock/Backends/Xhtml.hs
parent1e21c673a42d3337e05607ed4f47024c65d0cc9d (diff)
Insert a space between module link and description
Fixes Haddock Trac #277.
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index ac4282fb..3168c7b0 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -291,7 +291,7 @@ mkNodeList qual ss p ts = case ts of
mkNode :: Qualification -> [String] -> String -> ModuleTree -> Html
mkNode qual ss p (Node s leaf pkg short ts) =
- htmlModule +++ shortDescr +++ htmlPkg +++ subtree
+ htmlModule <+> shortDescr +++ htmlPkg +++ subtree
where
modAttrs = case (ts, leaf) of
(_:_, False) -> collapseControl p True "module"