Documentation

RawRequest provides the Request field from the WAI request.

Example:

import Control.Monad.IO.Class (liftIO)
import Network.Wai
import Servant
import ServantExtras.RawRequest

type MyAPI = "my-request-endpoint"
           :> RawRequest
           :> Get '[JSON] NoContent

myServer :: Server MyAPI
myServer = requestEndpointHandler
  where
    requestEndpointHandler :: Request -> Handler NoContent
    requestEndpointHandler req =
      -- Do something clever with the request
      pure NoContent