diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-09 18:27:36 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-10 21:37:48 +0000 |
| commit | 01de3a355ee0db773eba5f4368ac8ef4d75425b5 (patch) | |
| tree | 45916e415a34583a82d46f828caaf41d69be7896 /src/Haddock/Backends/Xhtml.hs | |
| parent | 1e21c673a42d3337e05607ed4f47024c65d0cc9d (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.hs | 2 |
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" |