0

我正在尝试遍历从 OpenWeatherMap API 获得的一些 JSON 响应，但在检索一些值时遇到了一些问题。这是我的代码：

{-# LANGUAGE OverloadedStrings #-}

import Control.Lens
import Data.Aeson.Lens (_String, key)
import Network.Wreq

myAPIKey :: String
myAPIKey = "my_api_key_here"

conditionsQuery :: String -> String -> String -> String
conditionsQuery city country key = 
   "https://api.openweathermap.org/data/2.5/forecast?q=" ++ city ++ "," ++ country ++ "&appid=" ++ key

main = do
    print "What's the city?"
    city <- getLine
    print "And the country?"
    country <- getLine

    r <- get (conditionsQuery city country myAPIKey)

    print $ r ^. responseBody . key "name" . _String
    print $ r ^. responseBody . key "cod" . _String
    print $ r ^. responseBody . key "id" . _String

问题是只返回“cod”的值（在这种情况下为“200”）。""如果我们尝试使用 London,GB, Chicago, US（例如），“name”和“id”的值显示为。然而响应体看起来像：

{
   ...
   "id": 2643743,
   "name": "London",
   "cod": 200
}

我一开始以为是类型不匹配，但Int那里有 200 个（除非我弄错了？）所以我不确定问题出在哪里？""似乎表明这两个键 (id和name) 不存在，但它们确实存在。

有任何想法吗？提前致谢。

4

1 回答 1

3

响应主体看起来不像那样。

根据https://openweathermap.org/forecast5，密钥"cod"出现在 JSON 对象的最外层，但"id"并"name"没有。

{
    "city":{
        "id":1851632,
        "name":"Shuzenji",
        ...
        }
    "cod":"200",
    ...
}
于 2018-01-30T08:42:37.360 回答