type dir = [ `Buy | `Sell ]
type t = {
dir : dir;
quantity : int;
price : float;
mutable cancelled : bool;
} with fields
type dir = [ `Buy | `Sell ]
type t = {
dir : dir;
quantity : int;
price : float;
mutable cancelled : bool;
} with fields
::
::
::
