2015-04-08 12:47:56 +02:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Application
|
2015-04-08 12:54:14 +02:00
|
|
|
|
|
|
|
|
import Control.Applicative
|
|
|
|
|
import System.Environment
|
2015-04-08 12:47:56 +02:00
|
|
|
import Network.Wai.Handler.Warp
|
|
|
|
|
import Network.Wai.Middleware.RequestLogger
|
|
|
|
|
|
2015-04-08 12:54:14 +02:00
|
|
|
|
2015-04-08 12:47:56 +02:00
|
|
|
main :: IO ()
|
2015-04-08 12:54:14 +02:00
|
|
|
main = do
|
|
|
|
|
port <- maybe 3000 read <$> lookupEnv "PORT"
|
|
|
|
|
app (run port . logStdout)
|
