[commit: haddock] ghc-7.8: Ensure a space between type signature and ‘Source’ (be68d8f)

[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/be68d8fc8daedd0a0968d453b446c02797ddbce7

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

commit be68d8fc8daedd0a0968d453b446c02797ddbce7
Author: Mateusz Kowalczyk <fuuzetsu at fuuzetsu.co.uk>
Date:   Mon Feb 10 23:27:21 2014 +0000

    Ensure a space between type signature and ‘Source’
    
    This is briefly related to Haddock Trac #249 and employs effectively the
    suggested fix _but_ it doesn't actually fix the reported issue. This
    commit simply makes copying the full line a bit less of a pain.
    
    (cherry picked from commit 860d6504530a163e7483960ca8837eb596e05634)


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

be68d8fc8daedd0a0968d453b446c02797ddbce7
 src/Haddock/Backends/Xhtml/Layout.hs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index 3ddbd28..4584fd8 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -187,7 +187,7 @@ declElem = paragraph ! [theclass "src"]
 -- it adds a source and wiki link at the right hand side of the box
 topDeclElem :: LinksInfo -> SrcSpan -> [DocName] -> Html -> Html
 topDeclElem ((_,_,sourceMap), (_,_,maybe_wiki_url)) loc names html =
-    declElem << (html +++ srcLink +++ wikiLink)
+    declElem << (html <+> srcLink <+> wikiLink)
   where srcLink =
           case Map.lookup origPkg sourceMap of
             Nothing  -> noHtml
@@ -216,4 +216,3 @@ topDeclElem ((_,_,sourceMap), (_,_,maybe_wiki_url)) loc names html =
         fname = case loc of
                 RealSrcSpan l -> unpackFS (srcSpanFile l)
                 UnhelpfulSpan _ -> error "topDeclElem UnhelpfulSpan"
-