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

Alpha: replace 'try ... with'

Browse Source
This commit is contained in:
bruno 2018-06-18 17:34:05 +02:00 committed by Benjamin Canou
parent 1ccdea0d08
commit e498a15a1a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/proto_alpha/lib_protocol/src/raw_context.ml
View File

@ -100,8 +100,9 @@ let add_rewards ctxt rewards =
let add_deposit ctxt delegate deposit = let add_deposit ctxt delegate deposit =
let previous = let previous =
try Signature.Public_key_hash.Map.find delegate ctxt.deposits match Signature.Public_key_hash.Map.find_opt delegate ctxt.deposits with
with Not_found -> Tez_repr.zero in | Some tz -> tz
| None -> Tez_repr.zero in
Lwt.return Tez_repr.(previous +? deposit) >>=? fun deposit -> Lwt.return Tez_repr.(previous +? deposit) >>=? fun deposit ->
let deposits = let deposits =
Signature.Public_key_hash.Map.add delegate deposit ctxt.deposits in Signature.Public_key_hash.Map.add delegate deposit ctxt.deposits in