Protocol_treasury (mavryk-protocol-alpha.Mavryk_raw_protocol_alpha.Alpha_context.Protocol

val get_protocol_treasury_address : Contract_hash.t

val get_buffer_address : 
  context ->
  Contract_hash.t Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val on_subsidy_allowed : 
  context ->
  per_block_vote:Per_block_votes.per_block_vote ->
  (context ->
    Contract_hash.t ->
    (context * 'a list) Mavryk_protocol_environment_alpha.Error_monad.tzresult
      Mavryk_protocol_environment_alpha.Lwt.t) ->
  (context * 'a list * Per_block_votes.Liquidity_baking_toggle_EMA.t)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t