mkListItem :: Bool -> HitPage -> IO ListItem
mkListItem showSummary page
= do lastMod <- utcToLocalZonedTime (hpLastMod page)
- return ( [ Inline ( PageLink {
- linkPage = Just (hpPageName page)
- , linkFragment = Nothing
- , linkText = Nothing
- }
- )
+ return ( [ Inline PageLink {
+ linkPage = Just (hpPageName page)
+ , linkFragment = Nothing
+ , linkText = Nothing
+ }
, Block ( Div [("class", "date")]
[Inline (Text (formatRFC1123DateTime lastMod))]
)