1 module Rakka.Storage.Types
10 import Control.Concurrent.STM
13 import Subversion.Repository
14 import Subversion.Types
15 import Text.HyperEstraier hiding (WriteLock)
20 stoRepository :: !Repository
21 , stoIndexChan :: !(TChan IndexReq)
28 | SearchIndex !Condition !(TMVar SearchResult)
34 , srPages :: ![HitPage]
41 hpPageName :: !PageName
43 , hpLastMod :: UTCTime
44 , hpSummary :: Maybe String
45 , hpSnippet :: [SnippetFragment]
53 | HighlightedWord !String