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
|
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
|
||||||
|
|
Loading…
Reference in a new issue