http - Haskell 中 GET 请求的编码问题

Question

我正在尝试使用 Haskell 从 Jira 服务器获取一些 Json 数据。我将此视为“我在使用 Haskell 时遇到问题”而不是编码或 Jira，因为我的问题是在 Haskell 中执行此操作时。

当 URL(或查询)带有加号时会出现问题。在构建了我对 theproject+order+by+created 的请求后，Haskell 将其打印为:

Request {
  host                 = "myjiraserver.com"
  port                 = 443
  secure               = True
  requestHeaders       = [("Content-Type","application/json"),("Authorization","<REDACTED>")]
  path                 = "/jira/rest/api/2/search"
  queryString          = "?jql=project%3Dtheproject%2Border%2Bby%2Bcreated"
  method               = "GET"
  proxy                = Nothing
  rawBody              = False
  redirectCount        = 10
  responseTimeout      = ResponseTimeoutDefault
  requestVersion       = HTTP/1.1
}

但是请求失败并返回以下响应:

- 'Error in the JQL Query: The character ''+'' is a reserved JQL character. You must
  enclose it in a string or use the escape ''\u002b'' instead. (line 1, character
  21)'

所以 Jira 似乎不喜欢 Haskell 的 %2B。您对我可以做些什么来解决这个问题有什么建议，或者有什么可能有用的资源吗？没有 +order+by+created 部分的相同请求是成功的。

代码(从 these examples 一起修补):

{-# LANGUAGE OverloadedStrings #-}
import           Data.Aeson
import qualified Data.ByteString.Char8 as S8
import qualified Data.Yaml             as Yaml
import           Network.HTTP.Simple
import           System.Environment    (getArgs)

-- auth' is echo -e "username:passwd" | base64
foo urlBase proj' auth' = do
    let proj = S8.pack (proj' ++ "+order+by+created")
        auth = S8.pack auth'
    request'' <- parseRequest urlBase
    let request'
            = setRequestMethod "GET"
            $ setRequestPath "/jira/rest/api/2/search"
            $ setRequestHeader "Content-Type" ["application/json"]
            $ request''
        request
            = setRequestQueryString [("jql", Just (S8.append "project=" proj))]
            $ setRequestHeader "Authorization" [S8.append "Basic " auth]
            $ request'
    return request

main :: IO ()
main = do
    args <- getArgs
    case args of
      (urlBase:proj:auth:_) -> do
          request <- foo urlBase proj auth
          putStrLn $ show request
          response <- httpJSON request
          S8.putStrLn $ Yaml.encode (getResponseBody response :: Value) -- apparently this is required
          putStrLn ""

      _ -> putStrLn "usage..."

(如果您知道执行上述操作的更简单方法，那么我也会采纳这些建议，我只是想做一些类似于此 Python 的事情:

import requests
import sys
if len(sys.argv) >= 4:
    urlBase = sys.argv[1]
    proj = sys.argv[2]
    auth = sys.argv[3]
    urlBase += "/jira/rest/api/2/search?jql=project="
    proj += "+order+by+created"
    h = {}
    h["content-type"] = "application/json"
    h["authorization"] = "Basic " + auth
    r = requests.get(urlBase + proj, headers=h)
    print(r.json())

)

Answer 1

project+order+by+created 是 URL-encoded实际请求的字符串 project order by created(用空格代替 +)。函数 setRequestQueryString 需要一个原始请求(带有空格，不是 URL 编码)，并对其进行 URL 编码。

您提供的用于比较的 Python 脚本本质上是手动进行 URL 编码。

因此解决方法是将原始请求放入proj:

foo urlBase proj' auth' = do
    let proj = S8.pack (proj' ++ " order by created")  -- spaces instead of +
    ...