@@ -31,6 +31,29 @@ module Agent = {
3131 include Events
3232}
3333
34+ @module ("https" ) external request : string => Http .ClientRequest .t = "request"
35+ @module ("https" )
36+ external requestWithCallback : (string , Http .IncomingMessage .t => unit ) => Http .ClientRequest .t = "request"
37+ @module ("https" )
38+ external requestWithOptions : (string , Http .requestOptions ) => Http .ClientRequest .t = "request"
39+ @module ("https" )
40+ external requestWithOptionsCallback : (
41+ string ,
42+ Http .requestOptions ,
43+ Http .IncomingMessage .t => unit ,
44+ ) => Http .ClientRequest .t = "request"
45+ @module ("https" ) external requestUrl : Url .t => Http .ClientRequest .t = "request"
46+ @module ("https" )
47+ external requestUrlWithCallback : (Url .t , Http .IncomingMessage .t => unit ) => Http .ClientRequest .t = "request"
48+ @module ("https" )
49+ external requestUrlWithOptions : (Url .t , Http .requestOptions ) => Http .ClientRequest .t = "request"
50+ @module ("https" )
51+ external requestUrlWithOptionsCallback : (
52+ Url .t ,
53+ Http .requestOptions ,
54+ Http .IncomingMessage .t => unit ,
55+ ) => Http .ClientRequest .t = "request"
56+
3457@module ("https" ) external get : string => Http .ClientRequest .t = "get"
3558@module ("https" )
3659external getWithCallback : (string , Http .IncomingMessage .t => unit ) => Http .ClientRequest .t = "get"
@@ -42,3 +65,24 @@ external getWithOptionsCallback: (
4265 Http .requestOptions ,
4366 Http .IncomingMessage .t => unit ,
4467) => Http .ClientRequest .t = "get"
68+
69+ @module ("https" ) external getUrl : Url .t => Http .ClientRequest .t = "get"
70+ @module ("https" )
71+ external getUrlWithCallback : (Url .t , Http .IncomingMessage .t => unit ) => Http .ClientRequest .t = "get"
72+ @module ("https" )
73+ external getUrlWithOptions : (Url .t , Http .requestOptions ) => Http .ClientRequest .t = "get"
74+ @module ("https" )
75+ external getUrlWithOptionsCallback : (
76+ Url .t ,
77+ Http .requestOptions ,
78+ Http .IncomingMessage .t => unit ,
79+ ) => Http .ClientRequest .t = "get"
80+
81+ @module ("https" ) external globalAgent : Agent .t = "globalAgent"
82+ @module ("https" ) external maxHeaderSize : int = "maxHeaderSize"
83+
84+ type statusCodes = Js .Dict .t <string >
85+ @module ("https" ) external _STATUS_CODES : statusCodes = "STATUS_CODES"
86+
87+ type methods = array <string >
88+ @module ("https" ) external _METHODS : methods = "METHODS"
0 commit comments