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