module Rakka.Storage
( Storage
+ -- re-export from Rakka.Storage.Types
+ , SearchResult(..)
+ , HitPage(..)
+ , SnippetFragment(..)
+
, mkStorage -- private
, getPage
import Control.Arrow.ArrowIO
import Control.Concurrent.STM
-import Control.Monad
import Control.Monad.Trans
-import Data.Maybe
import Network.HTTP.Lucu
import Rakka.Attachment
import Rakka.Page
import Rakka.Storage.Impl
import Rakka.Storage.Types
import Subversion.Types
-import System.IO
import Subversion.Repository
import Text.HyperEstraier hiding (WriteLock)
getDirContentsA = arrIO2 . getDirContents
-searchPages :: MonadIO m => Storage -> Condition -> m [(PageName, RevNum)]
+searchPages :: MonadIO m => Storage -> Condition -> m SearchResult
searchPages sto cond
= liftIO $
do var <- newEmptyTMVarIO