breve/Main.hs

{-# 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)
Initial commit 2015-04-08 12:47:56 +02:00			`{-# LANGUAGE OverloadedStrings #-}`

			`import Application`
Name the project 2015-04-08 22:13:02 +02:00			`import Breve.Common`
Read bind port from the environment 2015-04-08 12:54:14 +02:00
			`import Control.Applicative`
Initial commit 2015-04-08 12:47:56 +02:00			`import Network.Wai.Handler.Warp`
			`import Network.Wai.Middleware.RequestLogger`

			`main :: IO ()`
Read bind port from the environment 2015-04-08 12:54:14 +02:00			`main = do`
Print the server url on start 2015-04-08 22:17:50 +02:00			`(url, settings) <- serverSettings`
			`putStrLn ("Serving on " ++ url)`
Load bind address from environment 2015-04-08 15:54:06 +02:00			`app (runSettings settings . logStdout)`