Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 10 additions & 0 deletions src/Node/HTTP.js
Original file line number Diff line number Diff line change
Expand Up @@ -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 () {
Expand Down
4 changes: 4 additions & 0 deletions src/Node/HTTP.purs
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@ module Node.HTTP
, close
, ListenOptions
, listenSocket
, onConnect
, onUpgrade

, httpVersion
Expand Down Expand Up @@ -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

Expand Down