From ebc9d5bac1a69ba25044a73674b8e9ea18217f60 Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Sat, 25 Oct 2014 23:56:41 +0200
Subject: Optimize fetchnewentries

---
 src/storage.erl | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

(limited to 'src/storage.erl')

diff --git a/src/storage.erl b/src/storage.erl
index e09acdb..df6641a 100644
--- a/src/storage.erl
+++ b/src/storage.erl
@@ -43,15 +43,8 @@ request(get, "ct/storage/fetchnewentries", _Input) ->
               {entries, Entries}]}).
 
 fetchnewhashes(Index) ->
-    lists:reverse(fetchnewhashes(Index, [])).
-
-fetchnewhashes(Index, Acc) ->
-    case index:get(newentries_path(), Index) of
-        noentry ->
-            Acc;
-        Entry ->
-            fetchnewhashes(Index + 1, [Entry | Acc])
-    end.
+    Size = index:size(newentries_path()),
+    index:getrange(newentries_path(), Index, Size - 1).
 
 %% Private functions.
 html(Text, Input) ->
-- 
cgit v1.1