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

Handler.Feed: colorize package version diff as well

Browse Source
This commit is contained in:
Andrei Dziahel 2017-12-31 13:54:39 +03:00
parent 354374b0db
commit 7473c0cb42
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/Handler/Feed.hs
View File

@ -69,7 +69,7 @@ getContent sid2 snap = do
<th align=right>Old
<th align=left>New
<tbody>
$forall (pkgname@(PackageName name), VersionChange change) <- toDiffList snapDiff
$forall (pkgname@(PackageName name), VersionChange change, versionDiff) <- toVersionedDiffList snapDiff
<tr>
<th align=right>#{name}
$case change
@ -84,10 +84,20 @@ getContent sid2 snap = do
<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}
$maybe (common, left, right) <- versionDiff
<td align=right>
<a href=@{packageUrl name1 pkgname old}#changes>
#{common}#
<span style="background-color: #fcc">#{left}
<td>
<a href=@{packageUrl name2 pkgname new}#changes>
#{common}#
<span style="background-color: #cfc">#{right}
$nothing
<td align=right>
<a href=@{packageUrl name1 pkgname old}#changes>
#{old}
<td>
<a href=@{packageUrl name2 pkgname new}#changes>
#{new}
|]