how to easily get https post response data?

Question

I'm developing a toy program which uses the Google URL shortener API. To shorten a URL, you need to send this request:

POST https://www.googleapis.com/urlshortener/v1/url Content-Type: application/json  {"longUrl": "http://www.google.com/"} 

and you will get this as response:

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

At first I use Network.HTTP, but found it doesn't support HTTPS, and Google's API only supports HTTPS. So I turn to Network.Curl. I find that there's a convenient function for HTTP GET

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

but there's no such a function for HTTP POST. Even worse, I can't find a way to get the response data of HTTP POST. All I know is that I can issue a HTTP POST request using

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

Could anyone show me a way out? Thanks.

Answer 1

Just to provide an alternative solution via use of 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