Store and retrieve extra-data in/from db.

Also, add more specs to db.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/ht.erl b/src/ht.erl
index ec8527f..74f8ab4 100644
--- a/src/ht.erl
+++ b/src/ht.erl
@@ -264,7 +264,7 @@ new([Version]) when is_integer(Version) ->
     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));
+          end, new([]), [X || {X, _} <- db:get_by_index_sorted(0, Version)]);
 %% Initialise tree from List.
 new([List]) when is_list(List) ->
     foldl(fun(SerialisedMTL, Tree) -> add(Tree, SerialisedMTL) end,