updateEventFromWaiRequest :: Wai.Request -> BugsnagRequest -> BugsnagRequest
updateEventFromWaiRequest = -- Copy everything we can
myErrorHandler = do
request <- waiRequest
liftIO
$ notifyBugsnag settings
$ updateEventFromWaiRequest request
$ bugsnagEvent [myException]
The BugsnagRequest fields are all Text right now, but we should consider making them whatever the corresponding fields are in Wai.Request since that's super standard.
The
BugsnagRequestfields are allTextright now, but we should consider making them whatever the corresponding fields are inWai.Requestsince that's super standard.