Haskell - simpleHTTP 方法的响应代码

Question

我编写了以下 Haskell 代码来下载雅虎财经网站上提供的 CSV 文件（每日价格）。在代码的最后一部分，有一个 case 语句。我想知道“rcode”实际上何时包含“Left”值。我已经提到了三种情况，但它们都指的是“正确”的价值观。我可能错了。我指的是以下网站上提供的 HTTP 响应代码。

downloadCSVFile ::String-> IO (Bool,String)
downloadCSVFile company_code=do 
                             let a="http://ichart.finance.yahoo.com/table.csv?s=" ++ company_code
                             let b=simpleHTTP $  getRequest a 
                             src <- ( b >>= getResponseBody)
                             rcode <- fmap rspCode <$> b
                             case rcode of
                                     Right (2,_,_) -> return (True,src)
                                     Right (4,_,_) -> return  (False,"Invalid URL..")
                                     Right (5,_,_) -> return  (False, "Server Error") 

https://support.google.com/webmasters/answer/40132?hl=en

Answer 1

线程化的Result a 类型是Either ConnError a 的别名。

如果HTTP 客户端库在连接到服务器时出现实际问题，您将获得Left 值。如果它成功连接到服务器并从服务器接收到 HTTP 响应代码，那将始终是 Right 值。

有关详细信息，请参阅Network.HTTP documentation。

要处理错误情况，请执行以下操作：

case rcode of
    Left err      -> return (False, "Connection error: " ++ show err)
    Right (2,_,_) -> return (True,src)
    Right (4,_,_) -> return  (False,"Invalid URL..")
    Right (5,_,_) -> return  (False, "Server Error")
    Right code    -> return  (False, "Unexpected code: " ++ show code)

我还添加了一个“包罗万象”的案例，以防您从服务器收到意外响应。