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 3000
    jungle <- createJungle
    createTree jungle treeName
    run 3000 $ application jungle