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

Alpha/Endorser: typos

Browse Source
This commit is contained in:
MBourgoin 2018-06-14 09:30:05 +02:00 committed by Grégoire Henry
parent ac20391c62
commit b9d97a7a94
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/proto_alpha/lib_delegate/client_baking_endorsement.ml
View File

@ -191,16 +191,16 @@ let endorse_for_delegate cctxt { delegate ; block ; slots ; } =
let endorse_for cctxt = function let endorse_for cctxt = function
| [] -> return [] | [] -> return []
| endorsments -> | endorsements ->
let done_waiting, still_waiting, errored = let done_waiting, still_waiting, errored =
List.fold_left List.fold_left
(fun (r, s, f) ({ timeout } as endorsment) -> match Lwt.state timeout with (fun (r, s, f) ({ timeout } as endorsement) -> match Lwt.state timeout with
| Lwt.Return () -> (endorsment :: r, s, f) | Lwt.Return () -> (endorsement :: r, s, f)
| Lwt.Sleep -> (r, endorsment :: s, f) | Lwt.Sleep -> (r, endorsement :: s, f)
| Lwt.Fail _ -> (r, s, endorsment :: f) | Lwt.Fail _ -> (r, s, endorsement :: f)
) )
([], [], []) ([], [], [])
endorsments endorsements
in in
iter_p (endorse_for_delegate cctxt) done_waiting >>=? fun () -> iter_p (endorse_for_delegate cctxt) done_waiting >>=? fun () ->
ignore errored; (* TODO: log *) ignore errored; (* TODO: log *)