From 7473c0cb42a739852332ddfbe018784b792c1bb7 Mon Sep 17 00:00:00 2001
From: Andrei Dziahel <develop7@develop7.info>
Date: Sun, 31 Dec 2017 13:54:39 +0300
Subject: [PATCH] Handler.Feed: colorize package version diff as well

---
 src/Handler/Feed.hs | 24 +++++++++++++++++-------
 1 file changed, 17 insertions(+), 7 deletions(-)

diff --git a/src/Handler/Feed.hs b/src/Handler/Feed.hs
index a40c8fc..48312d0 100644
--- a/src/Handler/Feed.hs
+++ b/src/Handler/Feed.hs
@@ -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}
                 |]