type view =
  1. | New_head of Tezos_crypto.Block_hash.t
  2. | New_branch of Tezos_crypto.Block_hash.t * int
val pp : Format.formatter -> view -> unit