dropped the concept of boring flag

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

diff --git a/Rakka/Wiki/Interpreter/PageList.hs b/Rakka/Wiki/Interpreter/PageList.hs
index 234ce7d007498d9f3b66893a2c02ae69b3d46bca..2815bda638878a098715b57dd82d11988b445aa4 100644 (file)
--- a/Rakka/Wiki/Interpreter/PageList.hs
+++ b/Rakka/Wiki/Interpreter/PageList.hs
@@ -40,7 +40,6 @@ recentUpdatesInterp
                 
                 cond <- newCondition
                 setPhrase   cond "[UVSET]"
-                addAttrCond cond "rakka:isBoring STREQ no"
                 addAttrCond cond "rakka:summary STRNE" -- summary が空でない
                 setOrder    cond "@mdate NUMD"
                 setMax      cond items
@@ -61,7 +60,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 +72,7 @@ recentUpdatesInterp
                                 )
                         ]
                         ++
-                        case pageSummary page of
+                        case entitySummary page of
                           Just s  -> [ Block (Paragraph [Text s]) ]
                           Nothing -> []
                       )