Skip to main content

Browse the archive

Revision 5e19e357b79a1626c3f27e918e50d21e3fe66c74 authored by Diane Gallois-Wong on 03 October 2022, 16:23:32 UTC, committed by Marge Bot on 10 October 2022, 09:36:45 UTC 
Proto: other minor changes
 
- Validate: rename application_info to block_finalization_info
- Validate: remove unneeded Alpha_context
- Apply: update module name Validate_operation -> Validate in a comment
- Apply & Contract_storage: use Lwt_tzresult_syntax
  (notably, fail is now implicitly Error_monad.fail)
1 parent c3a3cf5
Raw File
proxy_events.ml 
include Internal_event.Simple

let section = ["proxy_rpc_ctxt"]

let level = Internal_event.Debug

let delegate_to_http =
  declare_3
    ~section
    ~level
    ~name:"delegate_to_http"
    ~msg:"delegating to http: {method} {name} {path}"
    ("method", Data_encoding.string)
    ("name", Data_encoding.string)
    ("path", Data_encoding.string)

let done_locally =
  declare_3
    ~section
    ~level
    ~name:"done_locally"
    ~msg:"locally done: {method} {name} {path}"
    ("method", Data_encoding.string)
    ("name", Data_encoding.string)
    ("path", Data_encoding.string)

let delegate_media_type_call_to_http =
  declare_2
    ~section
    ~level
    ~name:"delegate_media_type_call_to_http"
    ~msg:"delegating to http generic media type call: {method} {uri}"
    ("method", Data_encoding.string)
    ("uri", Data_encoding.string)

let done_media_type_call_locally =
  declare_2
    ~section
    ~level
    ~name:"done_media_type_call_locally"
    ~msg:"locally done generic media type call: {method} {uri}"
    ("method", Data_encoding.string)
    ("uri", Data_encoding.string)
back to top