|
1 | 1 | type http = [ | `Http]; |
2 | 2 |
|
3 | | -module Headers = { |
4 | | - type t = pri { |
| 3 | + type headers = pri { |
5 | 4 | accept: option(string), |
6 | 5 | [@bs.as "accept-language"] acceptLanguage: option(string), |
7 | 6 | [@bs.as "accept-patch"] acceptPatch: option(string), |
@@ -57,7 +56,6 @@ module Headers = { |
57 | 56 | warning: option(string), |
58 | 57 | [@bs.as "www-authenticate"] wwwAuthenticate: option(string), |
59 | 58 | }; |
60 | | -}; |
61 | 59 |
|
62 | 60 | module IncomingMessage = { |
63 | 61 | type kind = [ Stream.readable | `IncomingMessage]; |
@@ -128,7 +126,7 @@ module IncomingMessage = { |
128 | 126 | [@bs.get] external url: subtype('w, 'r, 'a) => string = "url"; |
129 | 127 | [@bs.get] external port: subtype('w, 'r, 'a) => int = "port"; |
130 | 128 | [@bs.get] |
131 | | - external headers: subtype('w, 'r, 'a) => Headers.t = "headers"; |
| 129 | + external headers: subtype('w, 'r, 'a) => headers = "headers"; |
132 | 130 | [@bs.get] |
133 | 131 | external rawHeaders: subtype('w, 'r, 'a) => array(string) = "rawHeaders"; |
134 | 132 | [@bs.get] |
@@ -174,7 +172,7 @@ module ClientRequest = { |
174 | 172 | httpVersionMinor: int, |
175 | 173 | statusCode: int, |
176 | 174 | statusMessage: string, |
177 | | - headers: Headers.t, |
| 175 | + headers: headers, |
178 | 176 | rawHeaders: array(string), |
179 | 177 | }; |
180 | 178 | module Events = { |
@@ -579,7 +577,7 @@ module ServerResponse = { |
579 | 577 | external getHeaderNames: subtype('w, 'r, 'a) => array(string) = |
580 | 578 | "getHeaderNames"; |
581 | 579 | [@bs.send] |
582 | | - external getHeaders: subtype('w, 'r, 'a) => Headers.t = "getHeaders"; |
| 580 | + external getHeaders: subtype('w, 'r, 'a) => headers = "getHeaders"; |
583 | 581 | [@bs.send] |
584 | 582 | external hasHeader: (subtype('w, 'r, 'a), string) => bool = "hasHeader"; |
585 | 583 | [@bs.get] |
@@ -910,7 +908,7 @@ external requestOptions: |
910 | 908 | ~createConnection: unit => Net.TcpSocket.t=?, |
911 | 909 | ~defaultPort: int=?, |
912 | 910 | ~family: int=?, |
913 | | - ~headers: Headers.t=?, |
| 911 | + ~headers: headers=?, |
914 | 912 | ~host: string=?, |
915 | 913 | ~hostName: string=?, |
916 | 914 | ~localAddress: string=?, |
|
0 commit comments