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

Alpha/Baker: avoid list concatenations

Browse Source
This commit is contained in:
Raphaël Proust 2018-06-26 13:31:53 +08:00
parent d71b1648d9
commit 9cdd593e61
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -209,11 +209,13 @@ let forge (op : Operation.packed) : Operation.raw =
}
let ops_of_mempool (ops : Alpha_block_services.Mempool.t) =
List.map (fun (_, op) -> op) ops.applied @
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.refused [] @
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.branch_refused [] @
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.branch_delayed [] @
Operation_hash.Map.fold (fun _ op acc -> op :: acc) ops.unprocessed []
List.rev (
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_refused @@
Operation_hash.Map.fold (fun _ (op, _) acc -> op :: acc) ops.refused @@
List.rev_map (fun (_, op) -> op) ops.applied
)
let unopt_operations cctxt chain = function
| None ->