From 860d6504530a163e7483960ca8837eb596e05634 Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Mon, 10 Feb 2014 23:27:21 +0000 Subject: Ensure a space between type signature and ‘Source’ MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- src/Haddock/Backends/Xhtml/Layout.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Haddock/Backends/Xhtml') diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 3ddbd28b..4584fd82 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" - -- cgit v1.2.3