partially implemented page updating

[Rakka.git] / Rakka / Wiki / Interpreter / PageList.hs

diff --git a/Rakka/Wiki/Interpreter/PageList.hs b/Rakka/Wiki/Interpreter/PageList.hs
index 234ce7d007498d9f3b66893a2c02ae69b3d46bca..1b433b87faf486637d92fbaffce8aa1e2e075140 100644 (file)
--- a/Rakka/Wiki/Interpreter/PageList.hs
+++ b/Rakka/Wiki/Interpreter/PageList.hs
@@ -61,7 +61,7 @@ recentUpdatesInterp
 
       mkListItem :: Page -> IO ListItem
       mkListItem page
-          = do lastMod <- utcToLocalZonedTime (pageLastMod page)
+          = do lastMod <- utcToLocalZonedTime (entityLastMod page)
                return ( [ Inline ( PageLink {
                                      linkPage     = Just (pageName page)
                                    , linkFragment = Nothing
@@ -73,7 +73,7 @@ recentUpdatesInterp
                                 )
                         ]
                         ++
-                        case pageSummary page of
+                        case entitySummary page of
                           Just s  -> [ Block (Paragraph [Text s]) ]
                           Nothing -> []
                       )