Alpha_services.Seed_computation
val get : 'a Mavryk_protocol_environment_alpha.RPC_context.simple -> 'a -> Alpha_context.Seed.seed_computation_status Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult Mavryk_protocol_environment_alpha.Lwt.t