[commit: haddock] ghc-7.8: Insert a space between module link and description (a9192ee)

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://git.haskell.org/haddock.git/commitdiff/a9192eef8e67555187c557fc02e2f0f1c0ad49ea

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

commit a9192eef8e67555187c557fc02e2f0f1c0ad49ea
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.
    
    (cherry picked from commit 01de3a355ee0db773eba5f4368ac8ef4d75425b5)


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

a9192eef8e67555187c557fc02e2f0f1c0ad49ea
 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"