Source file `script_big_map.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2021 Trili Tech, <contact@trili.tech>                       *)
(*                                                                           *)
(*****************************************************************************)

let update k v m ctxt = Protocol.Script_big_map.update ctxt k v m

let of_list key_ty ty xs ctxt =
  List.fold_left_es
    (fun (bm, ctxt) (k, v) -> update k (Some v) bm ctxt)
    (Protocol.Script_big_map.empty key_ty ty, ctxt)
    xs