最后，我创建了一个新的数据类型data WebhookJSON，并为该数据类型创建了相应的MimeUnrender和MimeRender示例。就像对JSON类型所做的那样。我在组合子中使用了该数据类型，例如ReqBody '[WebhookJSON] ByteString。希望（我还没有测试过），这是一种访问原始请求主体的方法。

在7puns的自我回答中添加：

module JsonAsRawText where

import ClassyPrelude
import qualified Network.HTTP.Media               as M
import qualified Data.Text                        as TextS
import qualified Data.Text.Encoding               as TextS
import qualified Data.List.NonEmpty               as NE
import           Control.Arrow (left)
import Servant

data JsonAsRawText deriving Typeable

instance Accept JsonAsRawText where
  contentTypes _ =
    "application" M.// "json" M./: ("charset", "utf-8") NE.:|
    [ "application" M.// "json" ]

instance MimeUnrender JsonAsRawText TextS.Text where
  mimeUnrender _ = left show . TextS.decodeUtf8' . toStrict

值得注意的是，这绕过了Servant的许多奇妙的自动类型机制，只有当您绝对需要以字符串形式访问Content-Type: application/json请求的原始主体时，它才真正有用（例如，计算传入webhook的安全签名）。