aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorNiklas Haas <git@nand.wakku.to>2014-03-11 10:36:55 +0100
committerNiklas Haas <git@nand.wakku.to>2014-03-11 10:37:32 +0100
commit5f02bd67b9a17feb2dc64dc5f5c011996850fb8a (patch)
tree4eef77b6be575cc74be20328700d8b7ceb998747 /src/Haddock/Backends
parentb9995041b5c838d41ba14ff684d9f5bfacd9ffc4 (diff)
Revert "Reorder topDeclElem to move the source/wiki links to the top"
This reverts commit 843c42c4179526a2ad3526e4c7d38cbf4d50001d. This change is no longer needed with the new rendering style, and it messes with copy/pasting lines.
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index dfcda473..6784fb30 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -192,7 +192,7 @@ declElem = paragraph ! [theclass "src"]
-- it adds a source and wiki link at the right hand side of the box
topDeclElem :: LinksInfo -> SrcSpan -> Bool -> [DocName] -> Html -> Html
topDeclElem ((_,_,sourceMap,lineMap), (_,_,maybe_wiki_url)) loc splice names html =
- declElem << (srcLink <+> wikiLink <+> html)
+ declElem << (html <+> srcLink <+> wikiLink)
where srcLink = let nameUrl = Map.lookup origPkg sourceMap
lineUrl = Map.lookup origPkg lineMap
mUrl | splice = lineUrl