ligo/src/client/webclient_version.ml

29 lines
1.3 KiB
OCaml
Raw Normal View History

2016-12-02 02:20:23 +04:00
(**************************************************************************)
(* *)
(* Copyright (c) 2014 - 2016. *)
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
(* *)
(* All rights reserved. No warranty, explicit or implicit, provided. *)
(* *)
(**************************************************************************)
(* Tezos Web Interface - version dependent services *)
let contextual_static_files : string OCamlRes.Res.root Protocol_hash.Table.t =
Protocol_hash.Table.create 7
2016-12-02 02:20:23 +04:00
let register_static_files version root =
Protocol_hash.Table.add contextual_static_files version root
2016-12-02 02:20:23 +04:00
let find_contextual_static_files version =
Protocol_hash.Table.find contextual_static_files version
2016-12-02 02:20:23 +04:00
let contextual_services : Node_rpc_services.Blocks.block RPC.directory Protocol_hash.Table.t =
Protocol_hash.Table.create 7
2016-12-02 02:20:23 +04:00
let register_services version root =
Protocol_hash.Table.add contextual_services version root
2016-12-02 02:20:23 +04:00
let find_contextual_services version =
Protocol_hash.Table.find contextual_services version