, putPageA
, searchPages
+
+ , rebuildIndex
)
where
import Subversion.Repository
import Text.HyperEstraier hiding (WriteLock)
-logger = "Rakka.Storage"
-
mkStorage :: FilePath -> Repository -> (Page -> IO Document) -> IO Storage
mkStorage lsdir repos mkDraft
atomically $ takeTMVar var
+rebuildIndex :: MonadIO m => Storage -> m ()
+rebuildIndex sto
+ = liftIO $ atomically $ writeTChan (stoIndexChan sto) RebuildIndex
+
+
syncIndex :: Storage -> IO ()
syncIndex sto
= atomically $ writeTChan (stoIndexChan sto) SyncIndex