- 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