From e3ce8698c73d052e7e04eb3291a1408c5162a780 Mon Sep 17 00:00:00 2001 From: Darrell Roberts Date: Thu, 10 Mar 2022 08:33:16 -0500 Subject: [PATCH] for issue #126. Allow optional TLS params --- Database/MongoDB/Transport/Tls.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Database/MongoDB/Transport/Tls.hs b/Database/MongoDB/Transport/Tls.hs index 338b738..a02a318 100644 --- a/Database/MongoDB/Transport/Tls.hs +++ b/Database/MongoDB/Transport/Tls.hs @@ -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