Use Text instead of String

This commit is contained in:
Christine Dodrill 2015-07-27 23:12:13 -07:00
parent b5f1a707e2
commit 5a14a1849a
1 changed files with 7 additions and 9 deletions

View File

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