balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Proto: minor fix in Storage.Key

Browse Source
This commit is contained in:
Grégoire Henry 2016-11-14 17:33:32 +01:00
parent b82ad19806
commit 9062c405ad
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/proto/bootstrap/storage.ml
View File

@ -60,6 +60,8 @@ module Key = struct
let next_cycle_to_be_rewarded = store_root ["next_cycle_to_be_rewarded"] let next_cycle_to_be_rewarded = store_root ["next_cycle_to_be_rewarded"]
let rewards = store_root ["rewards"] let rewards = store_root ["rewards"]
let public_keys = ["public_keys" ; "ed25519"]
module Roll = struct module Roll = struct
let store_root l = store_root ("rolls" :: l) let store_root l = store_root ("rolls" :: l)
let next = store_root [ "next" ] let next = store_root [ "next" ]
@ -88,13 +90,14 @@ module Key = struct
module Contract = struct module Contract = struct
let store_root l = store_root ("contracts" :: l) let store_root l = store_root ("contracts" :: l)
let set = store_root ["set"] let set = store_root ["set"]
let pubkey_contract l = store_root ("pubkey" :: l)
let generic_contract l = store_root ("generic" :: l)
let contract_store c l = let contract_store c l =
store_root @@
match c with match c with
| Contract_repr.Default k -> | Contract_repr.Default k ->
"pubkey" :: Ed25519.hash_path k @ l pubkey_contract @@ Ed25519.Public_key_hash.to_path k @ l
| Contract_repr.Hash h -> | Contract_repr.Hash h ->
"generic" :: Contract_hash.to_path h @ l generic_contract @@ Contract_hash.to_path h @ l
let roll_list c = contract_store c ["roll_list"] let roll_list c = contract_store c ["roll_list"]
let change c = contract_store c ["change"] let change c = contract_store c ["change"]
let balance c = contract_store c ["balance"] let balance c = contract_store c ["balance"]
@ -401,7 +404,7 @@ module Public_key =
Make_iterable_data_storage (Ed25519.Public_key_hash) Make_iterable_data_storage (Ed25519.Public_key_hash)
(struct (struct
type value = Ed25519.public_key type value = Ed25519.public_key
let key = ["public_keys"] let key = Key.public_keys
let name = "public keys" let name = "public keys"
let encoding = Ed25519.public_key_encoding let encoding = Ed25519.public_key_encoding
end) end)