Merge pull request #2 from TheSpyder/popstarfreas_changes

Popstarfreas changes

Author: TheSpyder

src/ChildProcess.res

@@ -209,6 +209,7 @@ external execSyncOptions: (
   ~killSignal: string=?,
   ~uid: int=?,
   ~gid: int=?,
+  ~stdio: string=?,
   ~windowsHide: bool=?,
   unit,
 ) => execSyncOptions = ""

src/Http.res

@@ -708,6 +708,7 @@ external requestOptions: (
   ~setHost: bool=?,
   ~socketPath: string=?,
   ~timeout: int=?,
+  unit,
 ) => requestOptions = ""
 
 @module("http") external request: string => ClientRequest.t = "request"

src/Https.res

@@ -30,3 +30,59 @@ module Agent = {
   }
   include Events
 }
+
+@module("https") external request: string => Http.ClientRequest.t = "request"
+@module("https")
+external requestWithCallback: (string, Http.IncomingMessage.t => unit) => Http.ClientRequest.t = "request"
+@module("https")
+external requestWithOptions: (string, Http.requestOptions) => Http.ClientRequest.t = "request"
+@module("https")
+external requestWithOptionsCallback: (
+  string,
+  Http.requestOptions,
+  Http.IncomingMessage.t => unit,
+) => Http.ClientRequest.t = "request"
+@module("https") external requestUrl: Url.t => Http.ClientRequest.t = "request"
+@module("https")
+external requestUrlWithCallback: (Url.t, Http.IncomingMessage.t => unit) => Http.ClientRequest.t = "request"
+@module("https")
+external requestUrlWithOptions: (Url.t, Http.requestOptions) => Http.ClientRequest.t = "request"
+@module("https")
+external requestUrlWithOptionsCallback: (
+  Url.t,
+  Http.requestOptions,
+  Http.IncomingMessage.t => unit,
+) => Http.ClientRequest.t = "request"
+
+@module("https") external get: string => Http.ClientRequest.t = "get"
+@module("https")
+external getWithCallback: (string, Http.IncomingMessage.t => unit) => Http.ClientRequest.t = "get"
+@module("https")
+external getWithOptions: (string, Http.requestOptions) => Http.ClientRequest.t = "get"
+@module("https")
+external getWithOptionsCallback: (
+  string,
+  Http.requestOptions,
+  Http.IncomingMessage.t => unit,
+) => Http.ClientRequest.t = "get"
+
+@module("https") external getUrl: Url.t => Http.ClientRequest.t = "get"
+@module("https")
+external getUrlWithCallback: (Url.t, Http.IncomingMessage.t => unit) => Http.ClientRequest.t = "get"
+@module("https")
+external getUrlWithOptions: (Url.t, Http.requestOptions) => Http.ClientRequest.t = "get"
+@module("https")
+external getUrlWithOptionsCallback: (
+  Url.t,
+  Http.requestOptions,
+  Http.IncomingMessage.t => unit,
+) => Http.ClientRequest.t = "get"
+
+@module("https") external globalAgent: Agent.t = "globalAgent"
+@module("https") external maxHeaderSize: int = "maxHeaderSize"
+
+type statusCodes = Js.Dict.t<string>
+@module("https") external _STATUS_CODES: statusCodes = "STATUS_CODES"
+
+type methods = array<string>
+@module("https") external _METHODS: methods = "METHODS"

src/Net.res

@@ -219,7 +219,7 @@ module Socket = {
       ~delay: int,
     ) => subtype<'w, 'r, 'ty> = "setKeepAlive"
     @send
-    external setNoDelay: (subtype<'w, 'r, 'ty>, ~noDelay: bool) => subtype<'w, 'r, 'ty> = "noDelay"
+    external setNoDelay: (subtype<'w, 'r, 'ty>, ~noDelay: bool) => subtype<'w, 'r, 'ty> = "setNoDelay"
     @send
     external setTimeout: (
       subtype<'w, 'r, 'ty>,
@@ -243,6 +243,9 @@ module Socket = {
     ) => 'tcpSocket = "connect"
   }
   include Impl
+  include EventEmitter.Impl({
+      type t = t
+  })
 
   type makeOptions
 

src/Zlib.res

@@ -0,0 +1,4 @@
+@module("zlib") external deflateRawSync: Buffer.t => Buffer.t = "deflateRawSync"
+@module("zlib") external deflateRaw: (Buffer.t, (. Buffer.t) => unit) => unit = "deflateRaw"
+@module("zlib") external inflateRawSync: Buffer.t => Buffer.t = "inflateRawSync"
+@module("zlib") external inflateRaw: (Buffer.t, (. Buffer.t) => unit) => unit = "inflateRaw"