[commit: haddock] master: Insert a space between module link and description (01de3a3)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/01de3a355ee0db773eba5f4368ac8ef4d75425b5

>---------------------------------------------------------------

commit 01de3a355ee0db773eba5f4368ac8ef4d75425b5
Author: Mateusz Kowalczyk <fuuzetsu at fuuzetsu.co.uk>
Date:   Sun Feb 9 18:27:36 2014 +0000

    Insert a space between module link and description
    
    Fixes Haddock Trac #277.


>---------------------------------------------------------------

01de3a355ee0db773eba5f4368ac8ef4d75425b5
 src/Haddock/Backends/Xhtml.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index ac4282f..3168c7b 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"