- mkListItem :: Page -> ListItem
- mkListItem page
- = [ Inline ( PageLink {
- linkPage = Just (pageName page)
- , linkFragment = Nothing
- , linkText = Nothing
- }
- )
- , Inline ( Span [("class", "date")]
- [Text (formatRFC1123DateTime (pageLastMod page))]
- )
- ]
- ++
- case pageSummary page of
- Just s -> [ Block (Paragraph [Text s]) ]
- Nothing -> []
+ mkListItem :: Bool -> HitPage -> IO ListItem
+ mkListItem showSummary page
+ = do lastMod <- utcToLocalZonedTime (hpLastMod page)
+ return ( [ Inline PageLink {
+ linkPage = Just (hpPageName page)
+ , linkFragment = Nothing
+ , linkText = Nothing
+ }
+ , Block ( Div [("class", "date")]
+ [Inline (Text (RFC1123.format lastMod))]
+ )
+ ]
+ ++
+ case (showSummary, hpSummary page) of
+ (True, Just s)
+ -> [ Block (Paragraph [Text s]) ]
+ _ -> []
+ )