Revision 5fa6faa707c4eedc955a4f0562195703224a63fa authored by Thomas Letan on 14 August 2023, 09:49:56 UTC, committed by Thomas Letan on 14 August 2023, 09:55:15 UTC
Tztop was added at a time where the protocol couldn’t be loaded in utop. This is no longer the case, and as a consequence, we can safely retire tztop.
1 parent 5745a2e
event.ml
(*****************************************************************************)
(* *)
(* Open Source License *)
(* Copyright (c) 2022 Nomadic Labs, <contact@nomadic-labs.com> *)
(* *)
(* Permission is hereby granted, free of charge, to any person obtaining a *)
(* copy of this software and associated documentation files (the "Software"),*)
(* to deal in the Software without restriction, including without limitation *)
(* the rights to use, copy, modify, merge, publish, distribute, sublicense, *)
(* and/or sell copies of the Software, and to permit persons to whom the *)
(* Software is furnished to do so, subject to the following conditions: *)
(* *)
(* The above copyright notice and this permission notice shall be included *)
(* in all copies or substantial portions of the Software. *)
(* *)
(* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR*)
(* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, *)
(* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL *)
(* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER*)
(* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING *)
(* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *)
(* DEALINGS IN THE SOFTWARE. *)
(* *)
(*****************************************************************************)
include Internal_event.Simple
let section = ["dal"; "node"]
let starting_node =
declare_0
~section
~name:"starting_dal_node"
~msg:"Starting the DAL node"
~level:Notice
()
let shutdown_node =
declare_1
~section
~name:"stopping_dal_node"
~msg:"stopping DAL node"
~level:Notice
("exit_status", Data_encoding.int8)
let store_is_ready =
declare_0
~section
~name:"dal_node_store_is_ready"
~msg:"the DAL node store is ready"
~level:Notice
()
let node_is_ready =
declare_0
~section
~name:"dal_node_is_ready"
~msg:"the DAL node is ready"
~level:Notice
()
let data_dir_not_found =
declare_1
~section
~name:"dal_node_no_data_dir"
~msg:
"the DAL node data directory {path} doesn't exist. Creating one in {path}"
~level:Warning
("path", Data_encoding.(string))
let failed_to_persist_profiles =
declare_2
~section
~name:"failed_to_persist_profiles"
~msg:"failed to persist the profiles to the config file"
~level:Error
("profiles", Services.Types.profiles_encoding)
("error", Error_monad.trace_encoding)
let fetched_slot =
declare_2
~section
~name:"fetched_slot"
~msg:"slot fetched: size {size}, shards {shards}"
~level:Notice
("size", Data_encoding.int31)
("shards", Data_encoding.int31)
let layer1_node_new_head =
declare_2
~section
~name:"dal_node_layer_1_new_head"
~msg:"head of Layer 1 node updated to {hash} at level {level}"
~level:Info
("hash", Block_hash.encoding)
("level", Data_encoding.int32)
let layer1_node_final_block =
declare_1
~section
~name:"dal_node_layer_1_new_final_block"
~msg:"layer 1 node's block at level {level} is final"
~level:Notice
("level", Data_encoding.int32)
let layer1_node_tracking_started =
declare_0
~section
~name:"dal_node_layer_1_start_tracking"
~msg:"started tracking layer 1's node"
~level:Notice
()
let layer1_node_tracking_started_for_plugin =
declare_0
~section
~name:"dal_node_layer_1_start_tracking_for_plugin"
~msg:"started tracking layer 1's node to determine plugin"
~level:Notice
()
let protocol_plugin_resolved =
declare_1
~section
~name:"dal_node_plugin_resolved"
~msg:"resolved plugin on protocol {proto_hash}"
~level:Notice
~pp1:Protocol_hash.pp_short
("proto_hash", Protocol_hash.encoding)
let no_protocol_plugin =
declare_0
~section
~name:"dal_node_no_plugin"
~msg:"could not resolve plugin"
~level:Error
()
let unexpected_protocol_plugin =
declare_0
~section
~name:"dal_node_unexpected_plugin"
~msg:
"found plugin for the current protocol, expected one for the next \
protocol."
~level:Error
()
let daemon_error =
declare_1
~section
~name:"dal_node_daemon_error"
~msg:"daemon thrown an error: {error}"
~level:Notice
~pp1:Error_monad.pp_print_trace
("error", Error_monad.trace_encoding)
let configuration_loaded =
declare_0
~section
~name:"configuration_loaded"
~msg:"configuration loaded successfully"
~level:Notice
()
let stored_slot_content =
declare_1
~section
~name:"stored_slot_content"
~msg:"slot stored: commitment {commitment}"
~level:Notice
("commitment", Cryptobox.Commitment.encoding)
let stored_slot_shards =
declare_2
~section
~name:"stored_slot_shards"
~msg:"slot stored: commitment {commitment}, shards {shards}"
~level:Notice
("commitment", Cryptobox.Commitment.encoding)
("shards", Data_encoding.int31)
let decoding_data_failed =
declare_1
~section
~name:"decoding_failed"
~msg:"error while decoding a {data_kind} value"
~level:Warning
("data_kind", Types.kind_encoding)
let loading_shard_data_failed =
declare_1
~section
~name:"loading_shard_data_failed"
~msg:"error while reading shard data {message}"
~level:Warning
("message", Data_encoding.string)
let message_validation_error =
declare_2
~section
~name:"message_validation_failed"
~msg:
"validating message with id {message_id} failed with error \
{validation_error}"
~level:Warning
~pp1:Gossipsub.Worker.GS.Message_id.pp
("message_id", Gossipsub.message_id_encoding)
("validation_error", Data_encoding.string)
let p2p_server_is_ready =
declare_1
~section
~name:"dal_node_p2p_server_is_ready"
~msg:"P2P server is listening on {point}"
~level:Notice
("point", P2p_point.Id.encoding)
let rpc_server_is_ready =
declare_1
~section
~name:"dal_node_rpc_server_is_ready"
~msg:"RPC server is listening on {point}"
~level:Notice
("point", P2p_point.Id.encoding)
let metrics_server_is_ready =
let open Internal_event.Simple in
declare_2
~section
~name:"starting_metrics_server"
~msg:"metrics server is listening on {host}:{port}"
~level:Notice
("host", Data_encoding.string)
("port", Data_encoding.uint16)
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...