Object.Propertytype ('M, 'T) key = | StringLiteral of 'M * 'M StringLiteral.t| NumberLiteral of 'M * 'M NumberLiteral.t| BigIntLiteral of 'M * 'M BigIntLiteral.t| Identifier of ('M, 'T) Identifier.t| Computed of ('M, 'T) ComputedKey.tand ('M, 'T) t = 'M * ('M, 'T) t'and ('M, 'T) t' = {key : ('M, 'T) key;pattern : ('M, 'T) Pattern.t;default : ('M, 'T) Expression.t option;shorthand : bool;}val pp_key :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) key ->
unitval show_key :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) key ->
stringval pp :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) t ->
unitval show :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) t ->
stringval pp_t' :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) t' ->
unitval show_t' :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) t' ->
string