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

Use conventional types for Tls.Connect

Browse source
This commit is contained in:
Victor Denisov 2016-05-01 19:23:30 -07:00
parent a4e5726e1e
commit ccd6727ab4
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Database/MongoDB/Internal/Tls.hs
View file

@ -11,8 +11,6 @@ where
import Data.IORef import Data.IORef
import Data.Monoid import Data.Monoid
import Data.Text (Text)
import qualified Data.Text as Text
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)
@ -25,20 +23,19 @@ import Database.MongoDB.Internal.Protocol (newPipeWith)
import Database.MongoDB.Internal.Connection (Connection(Connection)) import Database.MongoDB.Internal.Connection (Connection(Connection))
import qualified Database.MongoDB.Internal.Connection as Connection import qualified Database.MongoDB.Internal.Connection as Connection
import System.IO.Error (mkIOError, eofErrorType) import System.IO.Error (mkIOError, eofErrorType)
import qualified Network import Network (connectTo, HostName, PortID)
import qualified Network.TLS as TLS import qualified Network.TLS as TLS
import qualified Network.TLS.Extra.Cipher as TLS import qualified Network.TLS.Extra.Cipher as TLS
import qualified Control.IO.Region as Region import qualified Control.IO.Region as Region
-- | Connect to mongodb using TLS -- | Connect to mongodb using TLS
connect :: Text -> Int -> IO Pipe connect :: HostName -> PortID -> IO Pipe
connect host port = bracketOnError Region.open Region.close $ \r -> do connect host port = bracketOnError Region.open Region.close $ \r -> do
handle <- Region.alloc_ r handle <- Region.alloc_ r
(Network.connectTo (Text.unpack host) (connectTo host port)
(Network.PortNumber $ fromIntegral port))
hClose hClose
let params = (TLS.defaultParamsClient (Text.unpack host) "") let params = (TLS.defaultParamsClient host "")
{ TLS.clientSupported = def { TLS.clientSupported = def
{ TLS.supportedCiphers = TLS.ciphersuite_all} { TLS.supportedCiphers = TLS.ciphersuite_all}
, TLS.clientHooks = def , TLS.clientHooks = def