From d27690786ed2056d64c882ac72825755110d4870 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 20 Jan 2016 19:57:15 +0000 Subject: Nonfunctional API framework for server --- server/default-conf/Main.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 server/default-conf/Main.hs (limited to 'server/default-conf') diff --git a/server/default-conf/Main.hs b/server/default-conf/Main.hs new file mode 100644 index 0000000..0aa7d91 --- /dev/null +++ b/server/default-conf/Main.hs @@ -0,0 +1,17 @@ +{-# 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 -- cgit v1.2.3