From d351bb160874df10e16e054fdb62bee596d0c967 Mon Sep 17 00:00:00 2001
From: Benjamin Canou <benjamin@canou.fr>
Date: Wed, 31 May 2017 16:32:30 +0200
Subject: [PATCH] Shell: small bugfix preventing mempool cleanup.

---
 src/node/shell/distributed_db.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/node/shell/distributed_db.ml b/src/node/shell/distributed_db.ml
index cdc3e6d31..b6c00844e 100644
--- 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)