haskell - 如何捕获httpLbs(http-client)抛出的异常

Question

我有一个使用 http-client https://www.stackage.org/haddock/lts-9.0/http-client-0.5.7.0/Network-HTTP-Client.html#v:httpLbs 的 yesod 应用程序。我正在打电话

resp <- httpLbs req man

在处理程序(响应 BSL.ByteString) monad 内。

我得到了这个(在应用程序的日志中)

6/Aug/2017:15:14:17 +0200 [Error#yesod-core] HttpExceptionRequest Request { ...

(下一行代码永远不会被执行)

相反，我想捕获异常，并在我的代码中处理它。怎么办？

Answer 1

我建议使用 safe-exceptions 中的 tryAny 函数图书馆。粗略地说，这看起来像:

eres <- tryAny $ httpLbs req man
case eres of
  Left e -> handleException e
  Right lbs -> handleBody lbs

使用安全异常将帮助您避免一些可能会遇到异步异常和 monad 转换器的极端情况。