@@ -46,7 +46,6 @@ import Control.Applicative ((<|>))
4646import Control.Exception (Exception, throwIO, bracket, finally, handle, fromException, try, IOException, onException, SomeException(..))
4747import qualified Control.Exception as E
4848import Control.Monad (void)
49−import qualified Crypto.Random.AESCtr
5049import qualified Data.ByteString as S
5150import qualified Data.ByteString.Lazy as L
5251import Data.Default.Class (def)
@@ -310,12 +309,7 @@ mkConn tlsset s params = do
310309httpOverTls :: TLS.TLSParams params => TLSSettings -> Socket -> S.ByteString -> params -> IO (Connection, Transport)
311310httpOverTls TLSSettings{..} s bs0 params = do
312311 recvN <- makePlainReceiveN s bs0
313−#if MIN_VERSION_tls(1,3,0)
314312 ctx <- TLS.contextNew (backend recvN) params
315−#else
316− gen <- Crypto.Random.AESCtr.makeSystem
317− ctx <- TLS.contextNew (backend recvN) params gen
318−#endif
319313 TLS.contextHookSetLogging ctx tlsLogging
320314 TLS.handshake ctx
321315 writeBuf <- allocateBuffer bufferSize