[commit: haddock] master: Ensure a space between type signature and ‘Source’ (860d650)

[git at git.haskell.org]

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

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/860d6504530a163e7483960ca8837eb596e05634

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

commit 860d6504530a163e7483960ca8837eb596e05634
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.


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

860d6504530a163e7483960ca8837eb596e05634
 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"
-