{-# LANGUAGE OverloadedStrings #-} --needed for string arguments
import Network.HTTP.Simple

main :: IO ()
main = do
    apiResponse <- httpLBS "POST http://httpbin.org/get"

    putStrLn $ "Status code: " ++ show (getResponseStatusCode apiResponse)