Implement onConnect (#38)

Author: jmatsushita

src/Node/HTTP.js

@@ -46,6 +46,16 @@ exports.listenSocket = function (server) {
   };
 };
 
+exports.onConnect = function (server) {
+  return function (cb) {
+    return function () {
+      server.on("connect", function (req, socket, buffer) {
+        return cb(req)(socket)(buffer)();
+      });
+    };
+  };
+};
+
 exports.onUpgrade = function (server) {
   return function (cb) {
     return function () {

src/Node/HTTP.purs

@@ -10,6 +10,7 @@ module Node.HTTP
   , close
   , ListenOptions
   , listenSocket
+  , onConnect
   , onUpgrade
 
   , httpVersion
@@ -70,6 +71,9 @@ type ListenOptions =
 -- | Listen on a unix socket. The specified callback will be run when setup is complete.
 foreign import listenSocket :: Server -> String -> Effect Unit -> Effect Unit
 
+-- | Listen to `connect` events on the server
+foreign import onConnect :: Server -> (Request -> Socket -> Buffer -> Effect Unit) -> Effect Unit
+
 -- | Listen to `upgrade` events on the server
 foreign import onUpgrade :: Server -> (Request -> Socket -> Buffer -> Effect Unit) -> Effect Unit