{-# LANGUAGE OverloadedStrings #-}

import Application
import Breve.Common

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

main :: IO ()
main = do
  (url, settings) <- serverSettings
  putStrLn ("Serving on " ++ url)
  app (runSettings settings . logStdout)