where
import Control.Concurrent.STM
+import Data.Time
import Rakka.Page
import Subversion.Repository
import Subversion.Types
data HitPage
= HitPage {
hpPageName :: !PageName
- , hpPageRev :: !RevNum
+ , hpPageRev :: RevNum
+ , hpLastMod :: UTCTime
+ , hpSummary :: Maybe String
, hpSnippet :: [SnippetFragment]
}
deriving (Show, Eq)