File 0011-remove-rand_compat-and-time_compat-deps.patch of Package partisan
From bc2feb829c8a600bc106a3b158bb98a92fa7c677 Mon Sep 17 00:00:00 2001
From: Led <ledest@gmail.com>
Date: Tue, 12 Dec 2017 13:30:39 +0200
Subject: [PATCH] remove rand_compat and time_compat deps
---
rebar.config | 2 --
rebar.lock | 4 ----
src/partisan.app.src | 3 +--
src/partisan_plumtree_backend.erl | 7 +------
src/partisan_plumtree_broadcast.erl | 4 +---
5 files changed, 3 insertions(+), 17 deletions(-)
diff --git a/rebar.config b/rebar.config
index be6002e..277ab0d 100644
--- a/rebar.config
+++ b/rebar.config
@@ -8,8 +8,6 @@
]}.
{deps, [
- time_compat,
- rand_compat,
{acceptor_pool, "1.0.0-rc.0"},
{types, "~> 0.1"},
{lager, "~> 3.5"}
diff --git a/rebar.lock b/rebar.lock
index c4f044d..2682736 100644
--- a/rebar.lock
+++ b/rebar.lock
@@ -2,15 +2,11 @@
[{<<"acceptor_pool">>,{pkg,<<"acceptor_pool">>,<<"1.0.0-rc.0">>},0},
{<<"goldrush">>,{pkg,<<"goldrush">>,<<"0.1.9">>},1},
{<<"lager">>,{pkg,<<"lager">>,<<"3.5.1">>},0},
- {<<"rand_compat">>,{pkg,<<"rand_compat">>,<<"0.0.3">>},0},
- {<<"time_compat">>,{pkg,<<"time_compat">>,<<"0.0.1">>},0},
{<<"types">>,{pkg,<<"types">>,<<"0.1.6">>},0}]}.
[
{pkg_hash,[
{<<"acceptor_pool">>, <<"679D741DF87FC13599B1AEF2DF8F78F1F880449A6BEFAB7C44FB6FAE0E92A2DE">>},
{<<"goldrush">>, <<"F06E5D5F1277DA5C413E84D5A2924174182FB108DABB39D5EC548B27424CD106">>},
{<<"lager">>, <<"63897A61AF646C59BB928FEE9756CE8BDD02D5A1A2F3551D4A5E38386C2CC071">>},
- {<<"rand_compat">>, <<"011646BC1F0B0C432FE101B816F25B9BBB74A085713CEE1DAFD2D62E9415EAD3">>},
- {<<"time_compat">>, <<"23FE0AD1FDF3B5B88821B2D04B4B5E865BF587AE66056D671FE0F53514ED8139">>},
{<<"types">>, <<"03BB7140016C896D3441A77CB0B7D6ACAA583D6D6E9C4A3E1FD3C25123710290">>}]}
].
diff --git a/src/partisan.app.src b/src/partisan.app.src
index 532d0d3..91b8eb8 100644
--- a/src/partisan.app.src
+++ b/src/partisan.app.src
@@ -2,8 +2,7 @@
[{description,"Scalable peer service for Lasp"},
{vsn,"1.4.1"},
{registered,[]},
- {applications,[kernel,stdlib,crypto,lager,types,acceptor_pool,
- ssl,rand_compat]},
+ {applications,[kernel,stdlib,crypto,lager,types,acceptor_pool, ssl]},
{mod,{partisan_app,[]}},
{modules,[]},
{included_applications,[]},
diff --git a/src/partisan_plumtree_backend.erl b/src/partisan_plumtree_backend.erl
index 1ec9316..f3333f5 100644
--- a/src/partisan_plumtree_backend.erl
+++ b/src/partisan_plumtree_backend.erl
@@ -130,11 +130,6 @@ exchange(_Peer) ->
%% @private
-spec init([]) -> {ok, #state{}}.
init([]) ->
- %% Seed the process at initialization.
- rand_compat:seed(erlang:phash2([node()]),
- erlang:monotonic_time(),
- erlang:unique_integer()),
-
schedule_heartbeat(),
%% Open an ETS table for tracking heartbeat messages.
@@ -180,7 +175,7 @@ handle_cast(Msg, State) ->
%% @private
handle_info(heartbeat, State) ->
%% Generate message with monotonically increasing integer.
- Counter = time_compat:unique_integer([monotonic, positive]),
+ Counter = erlang:unique_integer([monotonic, positive]),
%% Make sure the node prefixes the timestamp with it's own
%% identifier: this means that we can have this tree
diff --git a/src/partisan_plumtree_broadcast.erl b/src/partisan_plumtree_broadcast.erl
index dda3e38..e995361 100644
--- a/src/partisan_plumtree_broadcast.erl
+++ b/src/partisan_plumtree_broadcast.erl
@@ -555,9 +555,7 @@ random_other_node(OrdSet) ->
Size = ordsets:size(OrdSet),
case Size of
0 -> undefined;
- _ ->
- lists:nth(rand_compat:uniform(Size),
- ordsets:to_list(OrdSet))
+ _ -> lists:nth(rand:uniform(Size), ordsets:to_list(OrdSet))
end.
ack_outstanding(MessageId, Mod, Round, Root, From, State=#state{outstanding=All}) ->
--
2.15.1
