Resurrection from bitrot

[Rakka.git] / Rakka / Storage / Types.hs

diff --git a/Rakka/Storage/Types.hs b/Rakka/Storage/Types.hs
index e9b848ba8cdab1527fba5db257c9ceed764288d5..75d8ef158ba8c76481ae96efc8ef01166d84a311 100644 (file)
--- a/Rakka/Storage/Types.hs
+++ b/Rakka/Storage/Types.hs
@@ -1,3 +1,6 @@
+{-# LANGUAGE
+    UnicodeSyntax
+  #-}
 module Rakka.Storage.Types
     ( Storage(..)
     , IndexReq(..)
@@ -6,14 +9,13 @@ module Rakka.Storage.Types
     , SnippetFragment(..)
     )
     where
-
-import           Control.Concurrent.STM
-import           Data.Time
-import           Rakka.Page
-import           Subversion.Repository
-import           Subversion.Types
-import           Text.HyperEstraier hiding (WriteLock)
-
+import Control.Concurrent.STM
+import Data.Text (Text)
+import Data.Time
+import Rakka.Page
+import Subversion.Repository
+import Subversion.Types
+import Text.HyperEstraier hiding (WriteLock)
 
 data Storage
     = Storage {
@@ -21,13 +23,11 @@ data Storage
       , stoIndexChan  :: !(TChan IndexReq)
       }
 
-
 data IndexReq
     = RebuildIndex
     | SyncIndex
     | SearchIndex !Condition !(TMVar SearchResult)
 
-
 data SearchResult
     = SearchResult {
         srTotal :: !Int
@@ -35,20 +35,18 @@ data SearchResult
       }
     deriving (Show, Eq)
 
-
 data HitPage
     = HitPage {
         hpPageName :: !PageName
       , hpPageRev  :: RevNum
       , hpLastMod  :: UTCTime
-      , hpSummary  :: Maybe String
+      , hpSummary  :: Maybe Text
       , hpSnippet  :: [SnippetFragment]
       }
     deriving (Show, Eq)
 
-
 data SnippetFragment
     = Boundary
-    | NormalText      !String
-    | HighlightedWord !String
-    deriving (Show, Eq)
\ No newline at end of file
+    | NormalText      !Text
+    | HighlightedWord !Text
+    deriving (Show, Eq)