haskell - 如何在服务应用程序中访问原始请求正文

Question

在servant/wai 应用程序中，可以使用组合器来获得请求主体，例如ReqBody '[JSON] Book。在这种情况下，主体被提取为 type 的值Book。目前尚不清楚如何在不将其转换为类型的情况下访问原始请求正文。

原始请求正文可能需要验证其签名。一个示例是在条带 webhook（即 stripe.com）中，可能需要原始请求正文进行验证。hackage.org (stripe-hs) 上有一个不错的库，可以进行此验证，但没有解释如何获取原始请求正文。

我想一种方法是通过一个中间件，请求正文可以被使用一次。还有其他方法吗？

Answer 1

我最终要做的是data WebhookJSON为这个数据类型创建一个新的数据类型及其对应的 MimeUnrender 和 MimeRender 实例。就像它为JSON类型所做的那样。我在组合器中使用了该数据类型，例如ReqBody '[WebhookJSON] ByteString. 希望（我还没有测试过），这是访问原始请求正文的一种方法。