Alpha: reduce tips for inclusion of seed revelations

2018-03-22 17:36:45 +01:00 · 2018-03-22 17:36:45 +01:00 · 72b7789162
commit 72b7789162
parent 5319752704
1 changed files with 4 additions and 2 deletions
--- a/src/proto_alpha/lib_protocol/src/constants_repr.ml
+++ b/src/proto_alpha/lib_protocol/src/constants_repr.ml
@ -12,9 +12,11 @@ let version_number = "\000"
 let proof_of_work_nonce_size = 8
 let nonce_length = 32

-(* 10 tez *)
+(* 1/8 tez *)
 let seed_nonce_revelation_tip =
-  Tez_repr.(mul_exn one 10)
+  match Tez_repr.(one /? 8L) with
+  | Ok c -> c
+  | Error _ -> assert false

 (* 1 tez *)
 let origination_burn =