sendHEADwH :: String -> [Header] -> IO (Response BL.ByteString)
sendHEADwH url hdr = do
    manager <- newManager defaultManagerSettings
    request <- parseRequest url
    let request' = request { requestHeaders = hdr, method = methodHead }
    response <- httpLbs request' manager
    return response
sendHEADwH :: String -> [Header] -> IO (Response BL.ByteString)
sendHEADwH url hdr = do
    manager <- newManager defaultManagerSettings
    request <- parseRequest url
    let request' = request { requestHeaders = hdr, method = methodHead }
    response <- httpLbs request' manager
    return response
sendHEADwH url hdr = do
    manager <- newManager defaultManagerSettings
    request <- parseRequest url
    let request' = request { requestHeaders = hdr, method = methodHead }
    response <- httpLbs request' manager
    return response