{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Thermoprint.Server

import Control.Monad.Trans.Resource
import Control.Monad.Logger
import Control.Monad.Reader

import Database.Persist.Sqlite

main :: IO ()
main = thermoprintServer (Nat runSqlite) def
  where
    runSqlite :: ReaderT ConnectionPool (LoggingT (ResourceT IO)) a -> IO a
    runSqlite = runResourceT . runStderrLoggingT . withSqlitePool ":memory:" 1 . runReaderT