Elm runtime in TypeScript

elmTsRuntime.ts

export type List<A> = Array<A>
export type Maybe<A> = A | null
export type Cmd<Msg> = Maybe<(_: sendMsg<Msg>) => void>

type updateFn<Msg, Model> = (_: Msg) => (_: Model) => [Model, Cmd<Msg>]
type sendMsg<Msg> = (_: Msg) => void

export let elmTsRuntime: <Msg, Model>(_: [Model, Cmd<Msg>]) => (_: updateFn<Msg, Model>) => void
elmTsRuntime = ([model, cmd]) => update => {
  const sendMsg = (msg: any) => {
    try {
      ;[model, cmd] = update(msg)(model)
      deferRun(sendMsg)(cmd)
    } catch (e) {
      console.error("Update error", e)
    }
  }
  deferRun(sendMsg)(cmd)
}

export let cmdBatch: <Msg>(_: List<Cmd<Msg>>) => Cmd<Msg>
cmdBatch = cmds => sendMsg => {
  cmds.forEach(runCmd(sendMsg))
}

let runCmd: <Msg>(_: sendMsg<Msg>) => (_: Cmd<Msg>) => void
runCmd = sendMsg => cmd => {
  try {
    if (cmd) cmd(sendMsg)
  } catch (e) {
    console.error("Command error", e)
  }
}

let deferRun: <Msg>(_: sendMsg<Msg>) => (_: Cmd<Msg>) => void
deferRun = sendMsg => cmd => {
  setTimeout(() => runCmd(sendMsg)(cmd))
}