diff --git a/src/Vervis/ChangeFeed.hs b/src/Vervis/ChangeFeed.hs
index e181b60..8433ac1 100644
--- a/src/Vervis/ChangeFeed.hs
+++ b/src/Vervis/ChangeFeed.hs
@@ -32,9 +32,9 @@ import Vervis.Foundation
 import Vervis.Model.Ident
 import Vervis.Model.Repo
 
-changeEntry :: LogEntry -> FeedEntry (Route App)
-changeEntry le = FeedEntry
-    { feedEntryLink      = HomeR
+changeEntry :: ShrIdent -> RpIdent -> LogEntry -> FeedEntry (Route App)
+changeEntry shr rp le = FeedEntry
+    { feedEntryLink      = RepoPatchR shr rp $ leHash le
     , feedEntryUpdated   = fst $ leTime le
     , feedEntryTitle     = leMessage le
     , feedEntryContent   = mempty
@@ -72,5 +72,5 @@ changeFeed shr repo mbranch vcs les = Feed
     , feedLanguage    = "en"
     , feedUpdated     = fst $ leTime $ head les
     , feedLogo        = Nothing
-    , feedEntries     = map changeEntry les
+    , feedEntries     = map (changeEntry shr repo) les
     }