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

Shell: small bugfix preventing mempool cleanup.

Browse Source
This commit is contained in:
Benjamin Canou 2017-05-31 16:32:30 +02:00
parent c7c7ffbd0e
commit d351bb1608
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/node/shell/distributed_db.ml
View File

@ -559,7 +559,7 @@ module Operation_list = struct
let rec do_read net block acc i = let rec do_read net block acc i =
if i <= 0 then if i <= 0 then
Lwt.return [] Lwt.return acc
else else
read_exn net (block, i-1) >>= fun ops -> read_exn net (block, i-1) >>= fun ops ->
do_read net block (ops :: acc) (i-1) do_read net block (ops :: acc) (i-1)