Shapes (ppx_version.Ppx_version

module Shape_tbl : sig ... end

val shape_tbl : Core_kernel.Bin_prot.Shape.t Shape_tbl.t

val find : Shape_tbl.key -> Core_kernel.Bin_prot.Shape.t option

val iteri : 
  f:( key:Shape_tbl.key -> data:Core_kernel.Bin_prot.Shape.t -> unit ) ->
  unit

val equal_shapes : 
  Core_kernel.Bin_prot.Shape.t ->
  Core_kernel.Bin_prot.Shape.t ->
  bool

val register : Shape_tbl.key -> Core_kernel.Bin_prot.Shape.t -> unit