for issue #126. Allow optional TLS params
This commit is contained in:
parent
408cc267f5
commit
e3ce8698c7
1 changed files with 1 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue