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

Prevalidation: minor bugfix.

Browse Source
This commit is contained in:
Grégoire Henry 2017-08-04 18:43:13 +02:00
parent eed9e7581d
commit 32fa712e13
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/node/shell/prevalidator.ml
View File

@ -116,9 +116,6 @@ let create net_db =
(fun h -> (fun h ->
Distributed_db.Operation.read_opt net_db h >>= function Distributed_db.Operation.read_opt net_db h >>= function
| Some po when Block_hash.Set.mem po.shell.branch !live_blocks -> | Some po when Block_hash.Set.mem po.shell.branch !live_blocks ->
(* FIXME add the operation on a bounded set of
to-be-ignored operations.*)
Distributed_db.Operation.clear net_db h ;
Lwt.return_some (h, po) Lwt.return_some (h, po)
| Some _ | None -> Lwt.return_none) | Some _ | None -> Lwt.return_none)
(Operation_hash.Set.elements ops) >>= fun rops -> (Operation_hash.Set.elements ops) >>= fun rops ->
@ -191,6 +188,7 @@ let create net_db =
~sort:true rops >>= fun (state, res) -> ~sort:true rops >>= fun (state, res) ->
let register h = let register h =
let op = Operation_hash.Map.find h ops in let op = Operation_hash.Map.find h ops in
live_operations := Operation_hash.Set.add h !live_operations ;
Distributed_db.inject_operation Distributed_db.inject_operation
net_db h op >>=? fun (_ : bool) -> net_db h op >>=? fun (_ : bool) ->
return () in return () in