blob: e61e34a605df7777f38f21ec0db74c0939a9b2c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
type t = {
value : string;
up : t option;
down : t option;
left : t option;
right : t option;
}
val create : string -> t
val with_up : t -> t -> t
val with_down : t -> t -> t
val with_left : t -> t -> t
val with_right : t -> t -> t
val move_up : t option -> t option
val move_down : t option -> t option
val move_left : t option -> t option
val move_right : t option -> t option
val ( = ) : t -> t -> bool
|
