{-# LANGUAGE OverloadedStrings #-}
module Main where

import Application

import Control.Applicative
import System.Environment
import Network.Wai.Handler.Warp
import Network.Wai.Middleware.RequestLogger


main :: IO ()
main = do
  port <- maybe 3000 read <$> lookupEnv "PORT"
  app (run port . logStdout)