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

Alpha/Baker: only retain applied, delayed and unprocessed mempool operations

Browse Source
This commit is contained in:
Vincent Botbol 2018-06-30 04:37:08 +02:00 committed by Benjamin Canou
parent fbefa3940d
commit f59b0aa44f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/proto_alpha/lib_delegate/client_baking_forge.ml
View File

@ -264,11 +264,10 @@ let forge (op : Operation.packed) : Operation.raw =
} }
let ops_of_mempool (ops : Alpha_block_services.Mempool.t) = let ops_of_mempool (ops : Alpha_block_services.Mempool.t) =
(* We only retain the applied, unprocessed and delayed operations *)
List.rev ( List.rev (
Operation_hash.Map.fold (fun _ op acc -> op :: acc) ops.unprocessed @@ Operation_hash.Map.fold (fun _ op acc -> op :: acc) ops.unprocessed @@
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.branch_delayed @@ Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.branch_delayed @@
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.branch_refused @@
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.refused @@
List.rev_map (fun (_, op) -> op) ops.applied List.rev_map (fun (_, op) -> op) ops.applied
) )