, putPageA
, searchPages
+
+ , rebuildIndex
)
where
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