package ecaml

  1. Overview
  2. Docs
package ecaml
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file input_event0.ml

1
2
3
4
5
6
7
8
9
10
11
open! Core
open! Import0

include Value.Make_subtype (struct
    let name = "input-event"
    let here = [%here]
    let is_in_subtype = Value.is_event
  end)

let description = Funcall.Wrap.("single-key-description" <: t @-> return string)
let sexp_of_t t = [%sexp (description t : string)]