2015-04-08 12:47:56 +02:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Application
|
2015-04-08 22:13:02 +02:00
|
|
|
import Breve.Common
|
2015-04-08 12:54:14 +02:00
|
|
|
|
|
|
|
|
import Control.Applicative
|
2015-04-08 12:47:56 +02:00
|
|
|
import Network.Wai.Handler.Warp
|
|
|
|
|
import Network.Wai.Middleware.RequestLogger
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
2015-04-08 12:54:14 +02:00
|
|
|
main = do
|
2015-04-08 15:54:06 +02:00
|
|
|
(_, settings) <- serverSettings
|
|
|
|
|
app (runSettings settings . logStdout)
|
