aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml/Layout.hs
diff options
context:
space:
mode:
authorMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-02-10 23:27:21 +0000
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2014-02-10 23:27:21 +0000
commit860d6504530a163e7483960ca8837eb596e05634 (patch)
tree888035f35ad8b82f9b7b2fe8d055c481ecdd722c /src/Haddock/Backends/Xhtml/Layout.hs
parent01de3a355ee0db773eba5f4368ac8ef4d75425b5 (diff)
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.
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Layout.hs')
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs3
1 files changed, 1 insertions, 2 deletions
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"
-