Supply Chain Integrity, Transparency, and Trust (IETF SCITT)
irmin: rename Heap.get -> Heap.find (merlint E325)
+3
-3
+1
-1
lib/atp/scitt_atp.ml
+1
-1
lib/atp/scitt_atp.ml
···
136
136
| Some tree_root ->
137
137
(* Copy blocks from heap to local blockstore *)
138
138
let rec copy_block cid =
139
-
match Irmin.Heap.get C.heap cid with
139
+
match Irmin.Heap.find C.heap cid with
140
140
| Some data -> (
141
141
bs#put cid data;
142
142
(* Try to decode as MST node and copy subtrees *)
+2
-2
test/atp/test_scitt_atp.ml
+2
-2
test/atp/test_scitt_atp.ml
···
49
49
type hash = Atp.Cid.t
50
50
type block = string
51
51
52
-
let get (bs : t) h = bs#get h
52
+
let find (bs : t) h = bs#get h
53
53
let put (bs : t) h data = bs#put h data
54
54
let mem (bs : t) h = bs#has h
55
55
let batch bs l = List.iter (fun (h, d) -> bs#put h d) l
56
-
let get_ref _ _ = None
56
+
let find_ref _ _ = None
57
57
let set_ref _ _ _ = ()
58
58
let del_ref _ _ = ()
59
59
let list_refs _ = []