diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-10 23:27:21 +0000 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-02-10 23:27:21 +0000 |
| commit | 860d6504530a163e7483960ca8837eb596e05634 (patch) | |
| tree | 888035f35ad8b82f9b7b2fe8d055c481ecdd722c /src/Haddock/Backends/Xhtml/Layout.hs | |
| parent | 01de3a355ee0db773eba5f4368ac8ef4d75425b5 (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.hs | 3 |
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" - |