37 lines
1019 B
Haskell
37 lines
1019 B
Haskell
{-# LANGUAGE ExistentialQuantification #-}
|
|
---------------------------------------------------------
|
|
--
|
|
-- Module : Web.Restful.Handler
|
|
-- Copyright : Michael Snoyman
|
|
-- License : BSD3
|
|
--
|
|
-- Maintainer : Michael Snoyman <michael@snoyman.com>
|
|
-- Stability : unstable
|
|
-- Portability : portable
|
|
--
|
|
-- Define Handler stuff.
|
|
--
|
|
---------------------------------------------------------
|
|
module Web.Restful.Handler
|
|
( Handler (..)
|
|
, runHandler
|
|
, HandlerMap
|
|
, HandlerDesc (..)
|
|
) where
|
|
|
|
import Web.Restful.Definitions
|
|
import Web.Restful.Request
|
|
import Web.Restful.Response
|
|
|
|
data Handler = forall req. Request req => Handler (req -> IO ResponseWrapper)
|
|
|
|
runHandler :: Handler -> RawRequest -> IO ResponseWrapper
|
|
runHandler (Handler f) rreq = do
|
|
let rparser = parseRequest
|
|
case runRequestParser rparser rreq of
|
|
Left errors -> fail $ unlines errors -- FIXME
|
|
Right req -> f req
|
|
|
|
data HandlerDesc a = HandlerDesc a Verb Handler
|
|
type HandlerMap a = [HandlerDesc a]
|