From 21122a43c2c975f7641c997b4da1babf30b297c7 Mon Sep 17 00:00:00 2001 From: Jordan Martinez Date: Fri, 14 Jul 2023 18:25:29 -0500 Subject: [PATCH] Convert to socket, not duplex --- src/Node/TLS/Socket.purs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/Node/TLS/Socket.purs b/src/Node/TLS/Socket.purs index 73ce561..fd47137 100644 --- a/src/Node/TLS/Socket.purs +++ b/src/Node/TLS/Socket.purs @@ -1,5 +1,5 @@ module Node.TLS.Socket - ( toDuplex + ( toTcpSocket , newClientTlsSocket , newClientTlsSocket' , newServerTlsSocket @@ -44,15 +44,14 @@ import Foreign (Foreign) import Node.Buffer (Buffer) import Node.EventEmitter (EventHandle(..)) import Node.EventEmitter.UtilTypes (EventHandle1, EventHandle0) -import Node.Net.Types (Socket, TCP, ConnectTcpOptions) -import Node.Stream (Duplex) +import Node.Net.Types (ConnectTcpOptions, Socket, TCP) import Node.TLS.Types (CipherObject, Client, ConnectTlsSocketOptions, CreateSecureContextOptions, EphemeralKeyInfoDH, EphemeralKeyInfoECDH, NewTlsSocketOptions, Server, TlsSocket) import Partial.Unsafe (unsafeCrashWith) import Prim.Row as Row import Unsafe.Coerce (unsafeCoerce) -toDuplex :: forall endpoint. TlsSocket endpoint -> Duplex -toDuplex = unsafeCoerce +toTcpSocket :: forall endpoint. TlsSocket endpoint -> Socket TCP +toTcpSocket = unsafeCoerce newClientTlsSocket :: Socket TCP -> Effect (TlsSocket Client) newClientTlsSocket s = runEffectFn1 newTlsSocketImpl s