Trading_engine.Order_book_eventCausally ordered level-two order-book observations.
type kind = | Snapshot of {}| Set of {side : side;price : Scalar.Price.t;quantity : Scalar.Quantity.t;}| Delete of {side : side;price : Scalar.Price.t;}| Trade of {price : Scalar.Price.t;quantity : Scalar.Quantity.t;aggressor_side : Market_event.aggressor_side;}type t = private {instrument_id : Id.Instrument.t;event_at : Ptime.t;available_at : Ptime.t;received_at : Ptime.t;ingest_sequence : int64;book_sequence : int64;kind : kind;}val level :
price:Scalar.Price.t ->
quantity:Scalar.Quantity.t ->
(level, string) Stdlib.resultval snapshot :
instrument_id:Id.Instrument.t ->
event_at:Ptime.t ->
available_at:Ptime.t ->
received_at:Ptime.t ->
ingest_sequence:int64 ->
book_sequence:int64 ->
bids:level list ->
asks:level list ->
(t, string) Stdlib.resultval set :
instrument_id:Id.Instrument.t ->
event_at:Ptime.t ->
available_at:Ptime.t ->
received_at:Ptime.t ->
ingest_sequence:int64 ->
book_sequence:int64 ->
side:side ->
price:Scalar.Price.t ->
quantity:Scalar.Quantity.t ->
(t, string) Stdlib.resultval delete :
instrument_id:Id.Instrument.t ->
event_at:Ptime.t ->
available_at:Ptime.t ->
received_at:Ptime.t ->
ingest_sequence:int64 ->
book_sequence:int64 ->
side:side ->
price:Scalar.Price.t ->
(t, string) Stdlib.resultval trade :
instrument_id:Id.Instrument.t ->
event_at:Ptime.t ->
available_at:Ptime.t ->
received_at:Ptime.t ->
ingest_sequence:int64 ->
book_sequence:int64 ->
price:Scalar.Price.t ->
quantity:Scalar.Quantity.t ->
aggressor_side:Market_event.aggressor_side ->
(t, string) Stdlib.resultval side_to_string : side -> stringval side_of_string : string -> (side, string) Stdlib.result