Drop convenience for dealing with types

Author: JordanMartinez

src/Node/Http2/Server.purs

@@ -1,7 +1,6 @@
 module Node.Http2.Server
   ( toTlsServer
   , createSecureServer
-  , createSecureServer'
   , checkContinueHandle
   , requestHandle
   , sessionHandle
@@ -24,39 +23,21 @@ import Node.EventEmitter (EventHandle(..))
 import Node.EventEmitter.UtilTypes (EventHandle1, EventHandle2, EventHandle4, EventHandle0)
 import Node.Http2.Flags (BitwiseFlag)
 import Node.Http2.Types (Headers, Http2CreateSecureServerOptions, Http2SecureServer, Http2ServerRequest, Http2ServerResponse, Http2Session, Http2Stream, Settings)
-import Node.Net.Types (NewServerOptions, TCP)
-import Node.Net.Types as NetTypes
+import Node.Net.Types (NewServerOptions)
 import Node.Stream (Duplex)
-import Node.TLS.Server as TlsServer
 import Node.TLS.Types (CreateSecureContextOptions, Server, TlsCreateServerOptions, TlsServer)
 import Prim.Row as Row
 import Unsafe.Coerce (unsafeCoerce)
 
 toTlsServer :: Http2SecureServer -> TlsServer
 toTlsServer = unsafeCoerce
 
--- | Same as `createSecureServer` but provides the value as each of its subclasses via record syntax
--- | for ease of use.
 createSecureServer
-  :: forall rec trash
-   . Row.Union rec trash (Http2CreateSecureServerOptions (TlsCreateServerOptions Server (CreateSecureContextOptions (NewServerOptions ()))))
-  => { | rec }
-  -> Effect { http2 :: Http2SecureServer, tls :: TlsServer, net :: NetTypes.Server TCP }
-createSecureServer options = (runEffectFn1 createSecureServerImpl options) <#> \http2 -> do
-  let
-    tls = toTlsServer http2
-    net = TlsServer.toNetServer tls
-  { http2
-  , tls
-  , net
-  }
-
-createSecureServer'
   :: forall rec trash
    . Row.Union rec trash (Http2CreateSecureServerOptions (TlsCreateServerOptions Server (CreateSecureContextOptions (NewServerOptions ()))))
   => { | rec }
   -> Effect Http2SecureServer
-createSecureServer' options = runEffectFn1 createSecureServerImpl options
+createSecureServer options = runEffectFn1 createSecureServerImpl options
 
 foreign import createSecureServerImpl :: forall r. EffectFn1 { | r } (Http2SecureServer)