Module `Flambda_primitive.Block_kind`

type t =

val to_shape : 
  t ->
  Flambda2_kinds.Tag.t * Flambda2_kinds.Flambda_kind.Block_shape.t

val print : Format.formatter -> t -> unit

val compare : t -> t -> int

Module Flambda_primitive.Block_kind