- getPageByHP :: Storage -> HitPage -> IO Page
- getPageByHP sto hp
- = getPage sto (hpPageName hp) (Just (hpPageRev hp)) >>= return . fromJust
-
- mkPageList :: Bool -> [Page] -> IO BlockElement
+ mkPageList :: Bool -> [HitPage] -> IO BlockElement
mkPageList showSummary pages
= do items <- mapM (mkListItem showSummary) pages
return (Div [("class", "recentUpdates")]
[ Block (List Bullet items) ])
mkPageList showSummary pages
= do items <- mapM (mkListItem showSummary) pages
return (Div [("class", "recentUpdates")]
[ Block (List Bullet items) ])