GoNZooo

startLink :: Arguments -> Effect (StartLinkResult (Process Message))
startLink arguments = do
  SimpleServer.startLink arguments { init, handleInfo, name: Nothing }

init :: Arguments -> ProcessM Message (InitValue State)
init { socket } = do
  self' <- Process.self
  liftEffect $ Process.send self' ReadRequest
  pure $ SimpleServer.initOk { socket, prices: MapSet.empty }

GoNZooo

local M = {}

local erl_call = "erl -noshell -sname neovim -eval"

M.beam_dev_helper_rpc = function(node, module, function_name)
  return "rpc:call(" .. node .. ", " .. module .. ", " .. function_name .. ", []), halt(0)."
end

M.execute_erlang_rpc_call = function(node, module, function_name)
  local command = erl_call .. " \"" .. M.beam_dev_helper_rpc(node, module, function_name) .. "\""

GoNZooo

Nothing :: struct {}

Just :: struct($T: typeid) {
    value: T,
}

Maybe :: union($T: typeid) {
    Nothing,
    Just(T),
}