From d180def6cec2e5967a788c2b3161c191719b3fd0 Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Sat, 25 Oct 2014 15:22:09 +0200
Subject: Optimize db:get_by_indices by not fetching entry and implementing
 index:getrange

Conflicts:
	src/index.erl
	src/plop.erl
---
 src/plop.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/plop.erl')

diff --git a/src/plop.erl b/src/plop.erl
index 0b101be..5244144 100644
--- a/src/plop.erl
+++ b/src/plop.erl
@@ -131,12 +131,18 @@ get_logid() ->
     gen_server:call(?MODULE, {get, logid}).
 testing_get_pubkey() ->
     gen_server:call(?MODULE, {test, pubkey}).
+
+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};
-- 
cgit v1.1