{-# LANGUAGE OverloadedStrings #-}
module Main where

import Application
import Shortener.Common

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

main :: IO ()
main = do
  (_, settings) <- serverSettings
  app (runSettings settings . logStdout)