diff options
Diffstat (limited to 'src/ht.erl')
-rw-r--r-- | src/ht.erl | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -261,15 +261,14 @@ new([-1]) -> new([]); %% Initialise tree from db. new([Version]) when is_integer(Version) -> - foldl(fun(#mtl{entry = E}, Tree) -> - D = (E#timestamped_entry.entry)#plop_entry.data, - add(Tree, D) % Return value -> Tree in next invocation. + foldl(fun(MTL, Tree) -> + %% Return value becomes Tree in next invocation. + add(Tree, plop:serialise(MTL)) end, new([]), db:get_by_index_sorted(0, Version)); %% Initialise tree from List. new([List]) when is_list(List) -> - foldl(fun(D, Tree) -> - add(Tree, D) % Return value -> Tree in next invocation. - end, new([]), List). + foldl(fun(SerialisedMTL, Tree) -> add(Tree, SerialisedMTL) end, + new([]), List). update(Tree) -> update(Tree, Tree#tree.version). |