From dd078cfecbe07f1e4d4e002467707ed53aeff180 Mon Sep 17 00:00:00 2001
From: Alex Auvolat <alex@adnab.me>
Date: Sat, 1 Sep 2018 15:28:05 +0200
Subject: Make merkle search tree work over network

---
 lib/app/blockstore.ex        | 2 +-
 lib/data/merklesearchtree.ex | 1 +
 lib/manager.ex               | 3 ++-
 3 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib')

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
-- 
cgit v1.2.3