Skip to content

Commit 077742f

Browse files
Drop polykinds
1 parent ceef09e commit 077742f

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

src/Node/Http2.purs

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -38,7 +38,7 @@ import Type.Row (type (+))
3838
-- | `...:` Any tls.createServer() options can be provided. For servers, the identity options (pfx or key/cert) are usually required.
3939
-- | `origins` <string[]> An array of origin strings to send within an ORIGIN frame immediately following creation of a new server Http2Session.
4040
-- | `unknownProtocolTimeout` <number> Specifies a timeout in milliseconds that a server should wait when an 'unknownProtocol' event is emitted. If the socket has not been destroyed by that time the server will destroy it. Default: 10000.
41-
type Http2CreateSecureServerOptions :: forall k. (Type -> k) -> Row k -> Row k
41+
type Http2CreateSecureServerOptions :: (Type -> Type) -> Row Type -> Row Type
4242
type Http2CreateSecureServerOptions f r =
4343
( allowHTTP1 :: f Boolean
4444
, maxDeflateDynamicTableSize :: f Int
@@ -70,7 +70,7 @@ type Http2CreateSecureServerOptions f r =
7070
-- | - Returns: <Buffer> | <TypedArray> | <DataView> pre-shared key that must either be a buffer or null to stop the negotiation process. Returned PSK must be compatible with the selected cipher's digest.
7171
-- | When negotiating TLS-PSK (pre-shared keys), this function is called with the identity provided by the client. If the return value is null the negotiation process will stop and an "unknown_psk_identity" alert message will be sent to the other party. If the server wishes to hide the fact that the PSK identity was not known, the callback must provide some random data as psk to make the connection fail with "decrypt_error" before negotiation is finished. PSK ciphers are disabled by default, and using TLS-PSK thus requires explicitly specifying a cipher suite with the ciphers option. More information can be found in the RFC 4279.
7272
-- | `pskIdentityHint` <string> optional hint to send to a client to help with selecting the identity during TLS-PSK negotiation. Will be ignored in TLS 1.3. Upon failing to set pskIdentityHint 'tlsClientError' will be emitted with 'ERR_TLS_PSK_SET_IDENTIY_HINT_FAILED' code.
73-
type TlsCreateServerOptions :: forall k. (Type -> k) -> Row k -> Row k
73+
type TlsCreateServerOptions :: (Type -> Type) -> Row Type -> Row Type
7474
type TlsCreateServerOptions f r =
7575
( "ALPNProtocols" :: f (Array String)
7676
, enableTrace :: f Boolean
@@ -104,7 +104,7 @@ type TlsCreateServerOptions f r =
104104
-- | `sessionIdContext` <string> Opaque identifier used by servers to ensure session state is not shared between applications. Unused by clients.
105105
-- | `ticketKeys`: <Buffer> 48-bytes of cryptographically strong pseudorandom data. See Session Resumption for more information.
106106
-- | `sessionTimeout` <number> The number of seconds after which a TLS session created by the server will no longer be resumable. See Session Resumption for more information. Default: 300.
107-
type TlsSecureContextOptions :: forall k. (Type -> k) -> Row k -> Row k
107+
type TlsSecureContextOptions :: (Type -> Type) -> Row Type -> Row Type
108108
type TlsSecureContextOptions f r =
109109
( ca :: f (Array ImmutableBuffer)
110110
, cert :: f (Array ImmutableBuffer)
@@ -135,7 +135,7 @@ type TlsSecureContextOptions f r =
135135
-- | `noDelay` <booean> If set to true, it disables the use of Nagle's algorithm immediately after a new incoming connection is received. Default: false.
136136
-- | `keepAlve` <boolean> If set to true, it enables keep-alive functionality on the socket immediately after a new incoming connection is received, similarly on what is done in socket.setKeepAlive([enable][, initialDelay]). Default: false.
137137
-- | `keepAlivInitialDelay` <number> If set to a positive number, it sets the initial delay before the first keepalive probe is sent on an idle socket.Default: 0.
138-
type NetCreateServerOptions :: forall k. (Type -> k) -> Row k -> Row k
138+
type NetCreateServerOptions :: (Type -> Type) -> Row Type -> Row Type
139139
type NetCreateServerOptions f r =
140140
( allowHalfOpen :: f Boolean
141141
, pauseOnConnect :: f Boolean
@@ -288,7 +288,7 @@ foreign import connectAuthImpl :: EffectFn1 (String) (Http2Session Client)
288288
-- | `unknownProtocolTimeout` <number> Specifies a timeout in milliseconds that a server should wait when an 'unknownProtocol' event is emitted. If the socket has not been destroyed by that time the server will destroy it. Default: 10000.
289289
-- |
290290
-- | Note: `createConnection` is not supported for now.
291-
type ConnectOptions :: forall k. (Type -> k) -> Row k -> Row k
291+
type ConnectOptions :: (Type -> Type) -> Row Type -> Row Type
292292
type ConnectOptions f r =
293293
( maxDeflateDynamicTableSize :: f Int
294294
, maxSettings :: f Int
@@ -359,7 +359,7 @@ getUnpackedSettings buf = runEffectFn1 getUnpackedSettingsImpl buf
359359

360360
foreign import getUnpackedSettingsImpl :: EffectFn1 (ImmutableBuffer) (Settings)
361361

362-
type Unlift :: forall k. k -> k
362+
type Unlift :: Type -> Type
363363
type Unlift a = a
364364

365365
foreign import undefined :: forall a. a

0 commit comments

Comments
 (0)