setMax cond items
result <- searchPages sto cond
- pages <- mapM (getPageBySR sto) result
+ pages <- mapM (getPageByHP sto) (srPages result)
mkPageList showSummary pages
}
where
- getPageBySR :: Storage -> SearchResult -> IO Page
- getPageBySR sto sr
- = getPage sto (srPageName sr) (Just (srPageRev sr)) >>= return . fromJust
+ 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