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