как легко получить данные ответа https после?

Question

Я разрабатываю игрушечную программу, в которой используется API-интерфейс сокращения URL Google. Чтобы сократить URL, вам необходимо отправить этот запрос:

POST https://www.googleapis.com/urlshortener/v1/url
Content-Type: application/json

{"longUrl": "http://www.google.com/"}

и вы получите это как ответ:

{
 "kind": "urlshortener#url",
 "id": "http://goo.gl/fbsS",
 "longUrl": "http://www.google.com/"
}

Сначала я использую Network.HTTP, но обнаружил, что он не поддерживает HTTPS, а API Google поддерживает только HTTPS. Поэтому я перехожу к Network.Curl. Я считаю, что есть удобная функция для HTTP GET

curlGetString :: URLString -> [CurlOption] -> IO (CurlCode, String)

но такой функции для HTTP POST нет. Еще хуже, я не могу найти способ получить данные ответа HTTP POST. Все, что я знаю, это то, что я могу выдать HTTP-запрос POST, используя

curlPost :: URLString -> [String] -> IO ()

Может ли кто-нибудь показать мне выход? Спасибо.

Answer 1

Просто чтобы предоставить альтернативное решение с помощью http-enumerator :

{-# LANGUAGE OverloadedStrings #-}

import Network.HTTP.Enumerator
import Network.HTTP.Types
import qualified Data.ByteString.Lazy as L

main = do
  req0 <- parseUrl "https://www.googleapis.com/urlshortener/v1/url"

  let req = req0 { method = methodPost
                 , requestHeaders = [("Content-Type", "application/json")]
                 , requestBody = RequestBodyLBS "{\"longUrl\": \"http://www.google.com/\"}"
                 }

  res <- withManager $ httpLbs req

  L.putStrLn $ responseBody res

Answer 2

Чтобы предоставить еще одну альтернативу с http-wireit :

{-# LANGUAGE OverloadedStrings #-}

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

main = do
  initReq <- parseUrl "https://www.googleapis.com/urlshortener/v1/url"

  let req' = initReq { secure = True } -- Turn on https
  let req = (flip urlEncodedBody) req' $
             [ ("longUrl", "http://www.google.com/")
  --           ,
             ]

  response <- withManager $ httpLbs req

  L.putStr $ responseBody response

Отличия от http-enumerator

1. Метод POST автоматически устанавливается для вас.
2. Размещенная полезная нагрузка автоматически кодируется по урлену.
3. Тип контента автоматически устанавливается как "application / x-www-form-urlencoded"

Answer 3

Если вы посмотрите на источник для curlPost, то увидите, что он делает это:

curlPost s ps = initialize >>= \ h -> do
  setopt h (CurlVerbose True)
  setopt h (CurlPostFields ps)
  setopt h (CurlCookieJar "cookies")
  setopt h (CurlURL s)
  perform h
  return ()

Так что я думаю, вам нужно сделать аналогичную вещь, но вместо двух последних строк напишите

  resp <- perform_with_response h

Также похоже, что setopt не экспортируется, но setopts есть, так что вы можете использовать его вместо

.