Mercurial > hg > Members > toma > bulletinboard
view App.hs @ 11:5671c12701d0 default tip
fix makefile
author | Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 11 Feb 2014 19:15:16 +0900 |
parents | 3f47943ccc5f |
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