Rakka/Storage/Types.hs

   1 module Rakka.Storage.Types
   2     ( Storage(..)
   3     , IndexReq(..)
   4     )
   5     where
   6
   7 import           Control.Concurrent.STM
   8 import           Rakka.Page
   9 import           Subversion.Repository
  10 import           Subversion.Types
  11 import           Text.HyperEstraier hiding (WriteLock)
  12
  13
  14 data Storage
  15     = Storage {
  16         stoRepository :: !Repository
  17       , stoIndexChan  :: !(TChan IndexReq)
  18       }
  19
  20
  21 data IndexReq
  22     = RebuildIndex
  23     | SyncIndex
  24     | SearchIndex !Condition !(TMVar [(PageName, RevNum)])