如何捕获 Http.Conduit 的 simpleHttp 抛出的 404 状态异常

Question

我正在尝试下载 html 文件中包含的所有 png 文件。 不过，我在捕获 404 状态异常时遇到了麻烦，相反，我的程序只是崩溃了。

下面是一些示例来演示：

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L

main = do
    let badUrl = "http://www.google.com/intl/en_com/images/srpr/WRONG.png"    
    imgData <- (simpleHttp badUrl) `catch` statusExceptionHandler  
    L.writeFile "my.png" imgData

statusExceptionHandler ::  t -> IO L.ByteString
statusExceptionHandler e = (putStrLn "oops") >> (return L.empty)

我的“oops”消息永远不会打印，而是应用程序崩溃：

StatusCodeException（状态{statusCode = 404，statusMessage =“未找到”}）[（“Content-Type”，“text/html；charset = UTF-8”），（“X-Content-Type-Options” ,"nosniff"),("日期","2012 年 1 月 27 日星期五 03:10:34 GMT"),("服务器","sffe"),("内容长度","964"),("X-XSS-保护","1; mode=block")]

我做错了什么？

更新：

按照 Thoma 的建议，我将代码更改为以下代码片段，现在已经有了适当的异常处理。

main = do
    let badUrl = "http://www.google.com/intl/en_com/images/srpr/WRONG.png"    
    imgData <- (simpleHttp badUrl) `X.catch` statusExceptionHandler  
    case imgData of x | x == L.empty -> return () 
                      | otherwise    -> L.writeFile "my.png" imgData

statusExceptionHandler ::  HttpException -> IO L.ByteString
statusExceptionHandler (StatusCodeException status headers) = 
    putStr "An error occured during download: "
    >> (putStrLn $ show status)
    >> (return L.empty)

Answer 1

您可能应该阅读关于可扩展异常的马洛论文。原始 catch，由 Prelude 导出并在代码片段中使用，仅适用于 IOError。 http-conduit 代码抛出不同类型的异常，HttpException 。 （通过 Typeable 类进行一些动态类型，请参阅论文）。

解决方案是什么？使用 Control.Exception 中的 catch 和只捕获您想要处理的错误类型（或所有错误类型的 SomeException ）。

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L
import Control.Exception as X

main = do
    let badUrl = "http://www.google.com/intl/en_com/images/srpr/WRONG.png"
    imgData <- (simpleHttp badUrl) `X.catch` statusExceptionHandler
        L.writeFile "my.png" imgData

statusExceptionHandler ::  SomeException -> IO L.ByteString
statusExceptionHandler e = (putStrLn "oops") >> (return L.empty)

Answer 2

除了 Thomas 的回答之外，您还可以通过覆盖 Request 类型的 checkStatus 记录来告诉 http-conduit 不要抛出异常。