time-wasting-thread-memorial/web/src/Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Control.Applicative
import Data.Monoid
import Data.Text hiding (head)
import Database.SQLite.Simple
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
} deriving (Show, Eq)

instance FromRow Post where
    fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field

main :: IO ()
main = do
    conn <- open "../db/posts.db"

    -- Simple tests to prove we're reading from SQLite
    r <- query_ conn "SELECT * FROM Posts WHERE page=1" :: IO [Post]
    let h = head r

    -- Set up the URL router
    runSpock 5000 $ spockT id $ do
         get root $
           text $ pack $ postBody h
         get ("hello" <//> var) $ \name ->
           text ("Hello " <> name <> "!")