A simple Node server in ReScript

Nodesrv1.res

// example ported from 
// "Web Development with Node and Express", 2nd edition
// by Ethan Brown

// bindings to the node API
type res
type req
type server

@module("http") external createServer : ( @uncurry (req, res) => unit ) => server = "createServer"

@send external end: (res, string) => unit = "end"
@send external writeHead: (res, int, 'a) => unit = "writeHead"

@send external listen: (server, int, @uncurry unit => unit) => unit = "listen"

// server code
let contentType = { "Content-Type": "text/plain" }

let server = createServer( (_req, res) => { 
  res->writeHead(200, contentType)
  res->end("Hello, world!")
})

server->listen(3000, () => Js.log("server is running"))