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      :: Text
  , postBody     :: Text
  , postMarkdown :: Text
  , postAuthor   :: Text
  , 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 $ postBody h