Legend:
Library
Module
Module type
Parameter
Class
Class type
type ('source_id, 'target_id) t =
| Not_dragging
| Dragging of {
source : 'source_id;
target : 'target_id option;
}
include Sexplib0.Sexpable.S2 with type ('source_id, 'target_id) t := ( 'source_id, 'target_id ) t
val t_of_sexp : ( Sexplib0.Sexp.t -> 'a ) -> ( Sexplib0.Sexp.t -> 'b ) -> Sexplib0.Sexp.t -> ( 'a, 'b ) t
val sexp_of_t : ( 'a -> Sexplib0.Sexp.t ) -> ( 'b -> Sexplib0.Sexp.t ) -> ( 'a, 'b ) t -> Sexplib0.Sexp.t
include Ppx_compare_lib.Equal.S2 with type ('source_id, 'target_id) t := ( 'source_id, 'target_id ) t
val equal : ( 'a -> 'a -> bool ) -> ( 'b -> 'b -> bool ) -> ( 'a, 'b ) t -> ( 'a, 'b ) t -> bool