Mercurial > hg > Members > toma > bulletinboard
view App.hs @ 8:3f47943ccc5f
fix port number 3000 to 8080
author | Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 07 Feb 2014 04:53:30 +0900 |
parents | 0d12b5e49dfd |
children |
line wrap: on
line source
import Jungle import Types import Routes import Network.Wai (Application, pathInfo, queryString) import Network.Wai.Parse (parseRequestBody, lbsBackEnd) import Network.Wai.Handler.Warp (run) import Control.Monad.Trans (lift) application :: Jungle -> Application application jungle request = do (params, _) <- parseRequestBody lbsBackEnd request function jungle query params where function = routes $ pathInfo request query = queryString request main = do putStrLn $ "Listening on port " ++ show 8080 jungle <- createJungle createTree jungle treeName run 8080 $ application jungle