我有一个项目有两个部分：
我在我的Yesod 实例声明中使用errorHandler 函数在出现问题时为网页构建错误页面。
但是，API 中的所有路由都会创建 JSON 响应。我正在使用runInputPost 来生成处理API 输入的输入表单。当调用缺少参数的 API 时，Yesod 会生成 InvalidArgs 异常并返回错误 HTML 页面。
我希望能够处理该异常并返回JSON，例如：
{
"success" : False,
"code" : 101,
"message" : "The argument 'blabla' was missing"
}
如果不使用自己的 errorHandler 创建子网站，我该如何做到这一点？
【问题讨论】：
标签： haskell error-handling yesod
虽然您的解决方案确实有效，但您可以改用 runInputPostResult 函数，该函数实际上是由处于与您发现自己的情况几乎相同的人通过 PR 添加的。
【讨论】：
在阅读了如何捕获 monad 堆栈中发生的异常（here 和 here）之后，我发现了似乎很容易使用的库 exceptions。
我读到Yesod 中的哪个类型实现了Exception 类型类，结果发现它是一个名为HandlerContents 的类型：
data HandlerContents =
HCContent H.Status !TypedContent
| HCError ErrorResponse
| HCSendFile ContentType FilePath (Maybe FilePart)
| HCRedirect H.Status Text
| HCCreated Text
| HCWai W.Response
| HCWaiApp W.Application
deriving Typeable
我对@987654330@ 感兴趣，因为它包含ErrorResponse（与errorHandler 获得的类型相同）。
我将exceptions 库添加到我的cabal 文件中的build-depends。我在 API 中的所有处理程序都有签名 :: Handler Value，所以我创建了一个名为 catchRouteError 的实用程序函数，我可以使用它来运行我的处理程序：
catchRouteError :: Handler Value -> Handler Value
catchRouteError r = catch r handleError
where
handleError :: HandlerContents -> Handler Value
handleError (HCError (InvalidArgs _)) = ... create specific json error
handleError (HCError _) = ... create generic json error
handleError e = throwM e
由于HandlerContents 用于其他事情，例如重定向和接收文件，我只匹配HCError 并让默认实现处理其他所有事情。
现在我可以使用这个函数轻松运行我的处理程序：
postAPIAppStatusR :: Handler Value
postAPIAppStatusR = catchRouteError $ do
...
这是我的问题的快速解决方案，我相信有更好的Yesod 知识的人可以提供更优雅的解决方案。
【讨论】：