Reproduce http-client "Invalid status line '0'"

invalid-status-line.hs

#!/usr/bin/env stack
-- stack -v runghc --package connection --package http-client --package http-client-tls 
{-# LANGUAGE OverloadedStrings #-}

import Prelude

import Control.Concurrent.Async
import Network.HTTP.Client
import Network.HTTP.Client.TLS


main :: IO ()
main = do

    let (Just req) = parseUrlThrow "https://assertible.com/blog"
    man <- newManager tlsManagerSettings

    results <- forConcurrently [1..250] $ \_ -> do
        res <- httpLbs req{method="HEAD"} man
        pure (responseStatus res)

    print (length results)