- = [ Inline ( PageLink {
- linkPage = Just (pageName page)
- , linkFragment = Nothing
- , linkText = Nothing
- }
- )
- , Block ( Div [("class", "date")]
- [Inline (Text (formatRFC1123DateTime (pageLastMod page)))]
- )
- ]
- ++
- case pageSummary page of
- Just s -> [ Block (Paragraph [Text s]) ]
- Nothing -> []
+ = do lastMod <- utcToLocalZonedTime (entityLastMod page)
+ return ( [ Inline ( PageLink {
+ linkPage = Just (pageName page)
+ , linkFragment = Nothing
+ , linkText = Nothing
+ }
+ )
+ , Block ( Div [("class", "date")]
+ [Inline (Text (formatRFC1123DateTime lastMod))]
+ )
+ ]
+ ++
+ case entitySummary page of
+ Just s -> [ Block (Paragraph [Text s]) ]
+ Nothing -> []
+ )