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