Question

我正在使用happstack-lite编写Web应用程序。当我的ServerPart响应处理程序调用纯函数并且此函数调用错误时，整个处理程序失败并且happstack打印出默认错误消息。

handler :: ServerPart Response
handler = do
    head [] `seq` ok $ toResponse $ H.html "mymessage"

服务器错误：Prelude.head：空列表

我想知道是否有可能捕获此异常并返回自定义消息。不幸的是，我无法弄清楚如何在ServerPart monad中使用 catch 。

理想情况下，我的处理程序应如下所示：

handler :: ServerPart Response
handler = do
    catch 
        (head [] `seq` ok $ toResponse $ H.html "my message") 
        (ok $ toResponse $ H.html "my error")

更新：保存我的历史解决方案

handler :: ServerPart Response
handler = do
    let good = ok $ toResponse $ H.html "my message"
    let bad = ok $ toResponse $ H.html "my error"
    join (liftIO $ catch
        (do
            let n = head (tail [1])
            _ <- print n
            return good
          )
        (\(E.ErrorCall _) -> return bad))

Answer 1

据我所知，happstack使用monad-control，你应该能够在适当的位置使用它的提升捕获（只要你也适当地强制异常）：http://hackage.haskell.org/package/monad-control-0.3.1

在happstack-lite处理程序中捕获异常

1 个答案: