mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-07 19:55:41 -05:00
11 lines
184 B
OCaml
11 lines
184 B
OCaml
|
|
|
|
type ('a, 'b) t =
|
|
| Left of 'a
|
|
| Right of 'b
|
|
|
|
val mk_left : 'a -> ('a, 'b) t
|
|
val mk_right : 'b -> ('a, 'b) t
|
|
|
|
val destruct : ('a, 'b) t ->
|
|
('a -> 'c) -> ('b -> 'c) -> 'c
|