1 module Rakka.Storage.Types
9 import Control.Concurrent.STM
11 import Subversion.Repository
12 import Subversion.Types
13 import Text.HyperEstraier hiding (WriteLock)
18 stoRepository :: !Repository
19 , stoIndexChan :: !(TChan IndexReq)
26 | SearchIndex !Condition !(TMVar [SearchResult])
31 srPageName :: !PageName
32 , srPageRev :: !RevNum
33 , srSnippet :: [SnippetFragment]
41 | HighlightedWord !String