Optimize db:get_by_indices by not fetching entry and implementing index:getrange

1 files changed, 6 insertions, 1 deletions

diff --git a/src/plop.erl b/src/plop.erl
index 0523613..0c85b21 100644
--- a/src/plop.erl
+++ b/src/plop.erl
@@ -248,12 +248,17 @@ store_at_all_nodes(Nodes, {LogEntry, TreeLeafHash, EntryHash}, From, State) ->
                     end, PlopWithOwn, RequestIds),
     PlopWithRequests.
 
+fill_in_entry({_Index, LeafHash, notfetched}) ->
+    db:get_by_leaf_hash(LeafHash).
+
 %%%%%%%%%%%%%%%%%%%%
 handle_call(stop, _From, Plop) ->
     {stop, normal, stopped, Plop};
 
 handle_call({get, {index, Start, End}}, _From, Plop) ->
-    {reply, db:get_by_indices(Start, End, {sorted, false}), Plop};
+    {reply, lists:map(fun (E) -> fill_in_entry(E) end,
+                      db:get_by_indices(Start, End, {sorted, false})),
+     Plop};
 
 handle_call({get, {hash, EntryHash}}, _From, Plop) ->
     {reply, db:get_by_entry_hash(EntryHash), Plop};