haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-02 14:20:25 +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=right>Old
<th align=left>New <th align=left>New
<tbody> <tbody>
$forall (pkgname@(PackageName name), VersionChange change) <- toDiffList snapDiff $forall (pkgname@(PackageName name), VersionChange change, versionDiff) <- toVersionedDiffList snapDiff
<tr> <tr>
<th align=right>#{name} <th align=right>#{name}
$case change $case change
@ -84,10 +84,20 @@ getContent sid2 snap = do
<a href=@{packageUrl name2 pkgname new}#changes> <a href=@{packageUrl name2 pkgname new}#changes>
#{new} #{new}
$of These old new $of These old new
<td align=right> $maybe (common, left, right) <- versionDiff
<a href=@{packageUrl name1 pkgname old}#changes> <td align=right>
#{old} <a href=@{packageUrl name1 pkgname old}#changes>
<td> #{common}#
<a href=@{packageUrl name2 pkgname new}#changes> <span style="background-color: #fcc">#{left}
#{new} <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}
|] |]