haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into ci

Browse Source
This commit is contained in:
Michael Snoyman 2017-09-18 13:57:46 +03:00
commit ef9b0ddf2e
No known key found for this signature in database
GPG Key ID: A048E8C057E86876
2 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Handler/Feed.hs
View File

@ -58,8 +58,9 @@ getContent sid2 snap = do
Nothing -> return "No previous snapshot found for comparison"
Just (sid1, name1) -> do
snapDiff <- getSnapshotDiff sid1 sid2
return
[shamlet|
let name2 = snapshotName snap
withUrlRenderer
[hamlet|
<p>Difference between #{prettyNameShort name1} and #{prettyNameShort $ snapshotName snap}
<table border=1 cellpadding=5>
<thead>
@ -68,17 +69,25 @@ getContent sid2 snap = do
<th align=right>Old
<th align=left>New
<tbody>
$forall (PackageName name, VersionChange change) <- toDiffList snapDiff
$forall (pkgname@(PackageName name), VersionChange change) <- toDiffList snapDiff
<tr>
<th align=right>#{name}
$case change
$of This (Version old)
<td align=right>#{old}
<td>
$of That (Version new)
$of This old
<td align=right>
<td>#{new}
$of These (Version old) (Version new)
<td align=right>#{old}
<td>#{new}
<a href=@{packageUrl name1 pkgname old}#changes>
#{old}
<td>
$of That new
<td align=right>
<td>
<a href=@{packageUrl name2 pkgname new}#changes>
#{new}
$of These old new
<td align=right>
<a href=@{packageUrl name1 pkgname old}#changes>
#{old}
<td>
<a href=@{packageUrl name2 pkgname new}#changes>
#{new}
|]

1
templates/stackage-home.hamlet
View File

@ -28,6 +28,7 @@ $newline never
<p>
<a href=@{SnapshotR name DocsR}>View documentation by modules
<a href="https://s3.amazonaws.com/haddock.stackage.org/#{toPathPiece name}/bundle.tar.xz">Download documentation archive
<div .container .content>
<div .packages>