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 Old New - $forall (pkgname@(PackageName name), VersionChange change) <- toDiffList snapDiff + $forall (pkgname@(PackageName name), VersionChange change, versionDiff) <- toVersionedDiffList snapDiff #{name} $case change @@ -84,10 +84,20 @@ getContent sid2 snap = do #{new} $of These old new - - - #{old} - - - #{new} + $maybe (common, left, right) <- versionDiff + + + #{common}# + #{left} + + + #{common}# + #{right} + $nothing + + + #{old} + + + #{new} |]