Observe.Event.Wai

Application

application

Arguments

:: EventBackend IO r ServeRequest

-> (r -> Application)

The application, called with a reference to the parent event.

-> Application

Run an Application with generic Request/Response instrumentation.

Instrumentation

data ServeRequest f where

Event selector for application.

Constructors

ServeRequest :: ServeRequest RequestField

renderServeRequest :: RenderSelectorJSON ServeRequest

Render a ServeRequest, and any Events selected by it, to JSON

data RequestField

A field for ServeRequest Events.

Constructors

ReqField Request

ResField Response

renderRequestField :: RenderFieldJSON RequestField

Render a RequestField to JSON

setOnException

onExceptionCallback :: EventBackend IO r OnException -> Maybe Request -> SomeException -> IO ()

A setOnException callback which creates an Event rendering Exceptions.

Ideally this would have a way to get a parent Event from application. Would be nice to use vault, but there doesn't seem to be a way to get at the Request that Warp will pass here.

Instrumentation

data OnException f where

Selector for onException

Constructors

OnException :: OnException OnExceptionField

renderOnException :: Exception stex => RenderExJSON stex -> RenderSelectorJSON OnException

Render an OnException, and its selected-for Events, as JSON, with a provided base structured exception type.

data OnExceptionField

A field for a OnException Event.

Constructors

OnExceptionField (Maybe Request) SomeException

renderOnExceptionField :: Exception stex => RenderExJSON stex -> RenderFieldJSON OnExceptionField

Render an OnExceptionField as JSON, with a provided base structured exception type.

Miscellaneous instrumentation

renderRequest :: Request -> Value

Render a Request to JSON.