我正在获取这个 JSON,将它用于一些计算,并希望返回一个结果,也使用 warp。现在 getJSON 显然是不可变的,根本不会改变。如何在每个 http 请求上重新评估 getJSON?最干净的方法是什么?
getJSON :: IO B.ByteString
getJSON = do
let authHeader = ("Authorization", token)
request' <- parseRequest jsonURL
let request = request' { requestHeaders = [authHeader] }
manager <- newManager tlsManagerSettings
resp <- httpLbs request manager
return $ responseBody resp