Electron ipc with reason

events.re

type date = {day: int};

type eventName =
  | SetDate
  | SetText;

let setDate send (u: date) => send SetDate u;

let handleSetDate on (handler: _ => date => unit) => on SetDate handler;

let setText send (u: string) => send SetText u;

let handleSetText on (handler: _ => string => unit) => on SetText handler;

main.re

external on : Event.eventName => ('a => 'm => unit) => unit =
  "" [@@bs.scope "ipcMain"] [@@bs.module "electron"];

Event.handleSetText on (fun _ (res: string) => Js.log2 "message" res);

Event.handleSetDate on (fun _ (res: Event.date) => Js.log2 "date" res.day);

renderer.re

external send : Event.eventName => 'm => unit =
  "" [@@bs.scope "ipcRenderer"] [@@bs.module "electron"];

Event.setText send "testfooTypes";

Event.setDate send {day: 15};

Just to clarify: I have NO IDEA what I'm doing. There are surely better ways to achieve this.