diff options
| author | Niklas Haas <git@nand.wakku.to> | 2014-03-11 10:36:55 +0100 |
|---|---|---|
| committer | Niklas Haas <git@nand.wakku.to> | 2014-03-11 10:37:32 +0100 |
| commit | 5f02bd67b9a17feb2dc64dc5f5c011996850fb8a (patch) | |
| tree | 4eef77b6be575cc74be20328700d8b7ceb998747 | |
| parent | b9995041b5c838d41ba14ff684d9f5bfacd9ffc4 (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.
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 2 |
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 |