, 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
putPage :: MonadIO m => Storage -> Page -> RevNum -> m ()
-putPage sto page oldRev
+putPage _sto _page _oldRev
= error "FIXME: not implemented"
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