[commit: haddock] master: Reorder topDeclElem to move the source/wiki links to the top (843c42c)

git at git.haskell.org git at git.haskell.org
Sun Mar 9 06:54:25 UTC 2014


Repository : ssh://git@git.haskell.org/haddock

On branch  : master
Link       : http://git.haskell.org/haddock.git/commitdiff/843c42c4179526a2ad3526e4c7d38cbf4d50001d

>---------------------------------------------------------------

commit 843c42c4179526a2ad3526e4c7d38cbf4d50001d
Author: Niklas Haas <git at nand.wakku.to>
Date:   Sun Mar 9 07:43:39 2014 +0100

    Reorder topDeclElem to move the source/wiki links to the top
    
    They appear in the same position due to the float: right attribute but
    now they're always at the top of the box instead of at the bottom.


>---------------------------------------------------------------

843c42c4179526a2ad3526e4c7d38cbf4d50001d
 src/Haddock/Backends/Xhtml/Layout.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index dbc043b..9a0e461 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 -> [DocName] -> Html -> Html
 topDeclElem ((_,_,sourceMap), (_,_,maybe_wiki_url)) loc names html =
-    declElem << (html <+> srcLink <+> wikiLink)
+    declElem << (srcLink <+> wikiLink <+> html)
   where srcLink =
           case Map.lookup origPkg sourceMap of
             Nothing  -> noHtml



More information about the ghc-commits mailing list