Shell: small bugfix preventing mempool cleanup.

2017-05-31 16:32:30 +02:00 · 2017-05-31 16:32:30 +02:00 · d351bb1608
commit d351bb1608
parent c7c7ffbd0e
1 changed files with 1 additions and 1 deletions
--- a/src/node/shell/distributed_db.ml
+++ b/src/node/shell/distributed_db.ml
@ -559,7 +559,7 @@ module Operation_list = struct

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