1 module Rakka.Storage.Types
10 import Control.Concurrent.STM
12 import Subversion.Repository
13 import Subversion.Types
14 import Text.HyperEstraier hiding (WriteLock)
19 stoRepository :: !Repository
20 , stoIndexChan :: !(TChan IndexReq)
27 | SearchIndex !Condition !(TMVar SearchResult)
33 , srPages :: ![HitPage]
40 hpPageName :: !PageName
41 , hpPageRev :: !RevNum
42 , hpSnippet :: [SnippetFragment]
50 | HighlightedWord !String