Source file command.ml

1
2
3
4
5
6
7
8
9
type t =
  | Noop
  | Quit
  | Hide_cursor
  | Show_cursor
  | Exit_alt_screen
  | Enter_alt_screen
  | Seq of t list
  | Set_timer of unit Riot.Ref.t * float