diff options
| author | Linus Nordberg <linus@nordberg.se> | 2014-10-29 16:35:44 +0100 |
|---|---|---|
| committer | Linus Nordberg <linus@nordberg.se> | 2014-10-29 16:56:48 +0100 |
| commit | 92f681e1cbb444317d2603994c60c02feeab32be (patch) | |
| tree | ef62cdfece8c1f063cb27cf299094e1f4d7eed1a /src/storage.erl | |
| parent | b15f4636337c45b487651e8d442afed0d4141725 (diff) | |
| parent | cc2aaa2807bb13f4683c2d74a414d39d5b29a372 (diff) | |
Merge remote-tracking branch 'refs/remotes/map/external-merge3' into merging-external-merge
Conflicts:
src/db.erl
src/frontend.erl
src/index.erl
src/plop.erl
src/storage.erl
src/ts.erl
Diffstat (limited to 'src/storage.erl')
| -rw-r--r-- | src/storage.erl | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/storage.erl b/src/storage.erl index e09acdb..8136308 100644 --- a/src/storage.erl +++ b/src/storage.erl @@ -43,14 +43,11 @@ 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]) + case index:indexsize(newentries_path()) of + 0 -> + []; + Size -> + index:getrange(newentries_path(), Index, Size - 1) end. %% Private functions. |