Module Sub

type 'msg onesub =
  1. | SubTick of Time.posix -> 'msg
  2. | SubMouseMove of (float * float) -> 'msg
  3. | SubMouseDown of unit -> 'msg
  4. | SubMouseUp of unit -> 'msg
  5. | SubKeyDown of Keyboard.key -> 'msg
  6. | SubKeyUp of Keyboard.key -> 'msg
type 'msg t = 'msg onesub list
val none : 'a list
val batch : 'a list list -> 'a list
val on_animation_frame : (Time.posix -> 'msg) -> 'msg t
val on_mouse_move : ((float * float) -> 'msg) -> 'msg t
val on_mouse_down : (unit -> 'msg) -> 'msg t
val on_mouse_up : (unit -> 'msg) -> 'msg t
val on_key_down : (Keyboard.key -> 'msg) -> 'msg t
val on_key_up : (Keyboard.key -> 'msg) -> 'msg t
type event =
  1. | ETick of float
  2. | EMouseMove of int * int
  3. | EMouseButton of bool
  4. | EKeyChanged of bool * Keyboard.key
val find_map_opt : ('a -> 'b option) -> 'a list -> 'b option
val event_to_msgopt : event -> 'a onesub list -> 'a option