head.hs

{-# LANGUAGE OverloadedStrings #-}

import Network.HTTP.Simple

main :: IO ()
main = do
  resp <- httpLBS "HEAD https://httpbin.org/get"
  putStrLn $ "Status: " ++ show (getResponseStatus resp)
  putStrLn $ "Headers: " ++ show (getResponseHeaders resp)

httpNoBody というのがあって HEAD メソッドを送るのかと思ったけど、そうではなく、ただリクエストボディを無視して、() を返すだけだった。