req.hs

#!/usr/bin/env stack
-- stack --resolver=lts-13.10 script

{-# LANGUAGE OverloadedStrings #-}

import Data.Default
import Network.HTTP.Req

main :: IO ()
main = do
    -- 1
    runReq def $ req POST (https "ya.ru") NoReqBody ignoreResponse mempty
    -- 2
    let Just (url, options) = parseUrlHttps "https://ya.ru/"
    runReq def $ req POST url NoReqBody ignoreResponse options
    --
    pure ()