15 lines
304 B
Haskell
15 lines
304 B
Haskell
{-# 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) |