From 4f1a715a3f2a6b049dcb9dcc5b38f6f2716e4101 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordberg.se>
Date: Sat, 20 Sep 2014 15:33:06 +0200
Subject: Store and retrieve extra-data in/from db.

Also, add more specs to db.
---
 src/ht.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ht.erl')

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,
-- 
cgit v1.1