From e498a15a1a9a9635c33a9744aa0728d04b8f98a4 Mon Sep 17 00:00:00 2001 From: bruno Date: Mon, 18 Jun 2018 17:34:05 +0200 Subject: [PATCH] Alpha: replace 'try ... with' --- src/proto_alpha/lib_protocol/src/raw_context.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/src/raw_context.ml b/src/proto_alpha/lib_protocol/src/raw_context.ml index a0d7ec771..0e2f6642e 100644 --- a/src/proto_alpha/lib_protocol/src/raw_context.ml +++ b/src/proto_alpha/lib_protocol/src/raw_context.ml @@ -100,8 +100,9 @@ let add_rewards ctxt rewards = let add_deposit ctxt delegate deposit = let previous = - try Signature.Public_key_hash.Map.find delegate ctxt.deposits - with Not_found -> Tez_repr.zero in + match Signature.Public_key_hash.Map.find_opt delegate ctxt.deposits with + | Some tz -> tz + | None -> Tez_repr.zero in Lwt.return Tez_repr.(previous +? deposit) >>=? fun deposit -> let deposits = Signature.Public_key_hash.Map.add delegate deposit ctxt.deposits in