Make merkle search tree work over network

3 files changed, 4 insertions, 2 deletions

diff --git a/lib/app/blockstore.ex b/lib/app/blockstore.ex
index 4bef0b5..8e4fddc 100644
--- a/lib/app/blockstore.ex
+++ b/lib/app/blockstore.ex
@@ -112,7 +112,7 @@ defmodule SApp.BlockStore do
     peers = :ets.lookup(:shard_peer_db, state.shard_id)
       |> Enum.shuffle
       |> Enum.take(3)
-    for peer <- peers do
+    for {_, peer} <- peers do
       Shard.Manager.send(peer, {state.shard_id, state.path, {:get, key}})
     end
   end
diff --git a/lib/data/merklesearchtree.ex b/lib/data/merklesearchtree.ex
index 3676244..941d31d 100644
--- a/lib/data/merklesearchtree.ex
+++ b/lib/data/merklesearchtree.ex
@@ -232,6 +232,7 @@ defmodule SData.MerkleSearchTree do
       { [], [ {k, v, r} | rst2 ] } ->
         {low1l, low1h, store} = split(s1, store, low1, k)
         {store, newlow} = merge_aux(s1, s2, store, low1l, low2, callback)
+        callback.(k, v)
         {store, newr, newrst} = merge_aux_rec(s1, s2, store, low1h, [], r, rst2, callback)
         {store, newlow, [ {k, v, newr} | newrst ]}
       { [ {k, v, r} | rst1 ], [] } ->
diff --git a/lib/manager.ex b/lib/manager.ex
index 7c6c849..82984d6 100644
--- a/lib/manager.ex
+++ b/lib/manager.ex
@@ -131,7 +131,8 @@ defmodule Shard.Manager do
                            [{:<, :'$1', currtime - 60}],
                            [:'$1']}]
         :ets.select_delete(state.outbox, outbox_cleanup)
-      _ -> nil
+      _ ->
+        Logger.info "Dropping message #{inspect msg} for peer #{inspect peer_id}: peer not in database"
     end
     {:noreply, state}
   end