for issue #126. Allow optional TLS params

This commit is contained in:
Darrell Roberts 2022-03-10 08:33:16 -05:00
parent 408cc267f5
commit e3ce8698c7

View file

@ -28,12 +28,10 @@ module Database.MongoDB.Transport.Tls
where
import Data.IORef
import Data.Monoid
import Data.Maybe(fromMaybe)
import qualified Data.ByteString as ByteString
import qualified Data.ByteString.Lazy as Lazy.ByteString
import Data.Default.Class (def)
import Control.Applicative ((<$>))
import Control.Exception (bracketOnError)
import Control.Monad (when, unless)
import System.IO
@ -69,7 +67,6 @@ connectWithTlsParams clientParams host port = bracketOnError (connectTo host por
sd <- access p slaveOk "admin" retrieveServerData
return p
tlsConnection :: TLS.Context -> IO Transport
tlsConnection ctx = do
restRef <- newIORef mempty