-- re-export from Rakka.Storage.Types
, SearchResult(..)
+ , HitPage(..)
, SnippetFragment(..)
, mkStorage -- private
getDirContentsA = arrIO2 . getDirContents
-searchPages :: MonadIO m => Storage -> Condition -> m [SearchResult]
+searchPages :: MonadIO m => Storage -> Condition -> m SearchResult
searchPages sto cond
= liftIO $
do var <- newEmptyTMVarIO