diff --git a/web/src/Main.hs b/web/src/Main.hs index bea14e4..3b323bb 100644 --- a/web/src/Main.hs +++ b/web/src/Main.hs @@ -9,12 +9,12 @@ import Database.SQLite.Simple.FromRow import Web.Spock.Safe hiding (head) data Post = Post { - postID :: Int - , postOID :: String - , postBody :: String - , postMarkdown :: String - , postAuthor :: String - , postPage :: Int + postID :: Int + , postOID :: Text + , postBody :: Text + , postMarkdown :: Text + , postAuthor :: Text + , postPage :: Int } deriving (Show, Eq) instance FromRow Post where @@ -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