diff options
author | Magnus Ahltorp <map@kth.se> | 2014-10-25 23:56:41 +0200 |
---|---|---|
committer | Magnus Ahltorp <map@kth.se> | 2014-10-25 23:56:41 +0200 |
commit | ebc9d5bac1a69ba25044a73674b8e9ea18217f60 (patch) | |
tree | 3c823426f58139419d1418075252982b4da6ef95 /src/storage.erl | |
parent | 2483f0cf09ccc4cf73558c7a85bbb51a72d29c3a (diff) |
Optimize fetchnewentries
Diffstat (limited to 'src/storage.erl')
-rw-r--r-- | src/storage.erl | 11 |
1 files changed, 2 insertions, 9 deletions
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) -> |