Use Text instead of String

web/src/Main.hs

@@ -10,10 +10,10 @@ import Web.Spock.Safe hiding (head)
 
 data Post = Post {
     postID       :: Int
-  , postOID :: String
-  , postBody :: String
-  , postMarkdown :: String
-  , postAuthor :: String
+  , postOID      :: Text
+  , postBody     :: Text
+  , postMarkdown :: Text
+  , postAuthor   :: Text
   , postPage     :: Int
 } deriving (Show, Eq)
 
@@ -31,6 +31,4 @@ main = do
     -- Set up the URL router
     runSpock 5000 $ spockT id $ do
          get root $
-           text $ pack $ postBody h
-         get ("hello" <//> var) $ \name ->
-           text ("Hello " <> name <> "!")
+           text $ postBody h