many-tls: TlsExceptionHostPort (HandshakeFailed (Error_Packet_unexpected "Alert [(AlertLevel_Fatal,BadRecordMac)]" " expected: change cipher"))

many-tls.hs

import Control.Concurrent
import Control.Concurrent.STM
import Control.Monad
import Network.HTTP.Client
import Network.HTTP.Client.TLS

numThreads = 250

main = do
    manager <- newManager tlsManagerSettings {managerConnCount=1000}
    request <- parseUrl "https://www.google.com/"
    chan <- newTChanIO
    replicateM_ numThreads $ forkRequest request manager chan
    allResponses <- readNTChan numThreads chan
    print allResponses

forkRequest request manager chan =
    forkIO $
    withResponse request manager $ \resp -> atomically $
        writeTChan chan $ responseStatus resp

readNTChan num chan = atomically $
    replicateM num $ readTChan chan