Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

for issue #126. Allow optional TLS params

Browse source
This commit is contained in:
Darrell Roberts 2022-03-10 08:33:16 -05:00
parent 408cc267f5
commit e3ce8698c7
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Database/MongoDB/Transport/Tls.hs
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