diff --git a/Handler/Feed.hs b/Handler/Feed.hs index 1e301c2..a40c8fc 100644 --- a/Handler/Feed.hs +++ b/Handler/Feed.hs @@ -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|
Difference between #{prettyNameShort name1} and #{prettyNameShort $ snapshotName snap}
| Old | New | - $forall (PackageName name, VersionChange change) <- toDiffList snapDiff + $forall (pkgname@(PackageName name), VersionChange change) <- toDiffList snapDiff||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| #{name} $case change - $of This (Version old) - | #{old} - | - $of That (Version new) + $of This old | - | #{new} - $of These (Version old) (Version new) - | #{old} - | #{new} + + #{old} + | + $of That new + | + | + + #{new} + $of These old new + | + + #{old} + |
+
+ #{new}
|]
diff --git a/templates/stackage-home.hamlet b/templates/stackage-home.hamlet
index ac7807a..ebdea4f 100644
--- a/templates/stackage-home.hamlet
+++ b/templates/stackage-home.hamlet
@@ -28,6 +28,7 @@ $newline never
View documentation by modules
+ Download documentation archive
|