14 lines
300 B
Haskell
14 lines
300 B
Haskell
{-# 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) |