package fmlib_js

  1. Overview
  2. Docs

Source file timer.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open Js_of_ocaml

type timer
type interval

let set (f: unit -> unit) (ms: int): timer =
    Js.Unsafe.global##setTimeout f ms

let clear (t: timer): unit =
    Js.Unsafe.global##clearTimeout t


let set_interval (f: unit -> unit) (ms: int): interval =
    Js.Unsafe.global##setInterval f ms


let clear_interval (t: interval): unit =
    Js.Unsafe.global##clearInterval t
OCaml

Innovation. Community. Security.