diff options
| author | Linus Nordberg <linus@nordberg.se> | 2014-11-04 12:45:39 +0100 |
|---|---|---|
| committer | Linus Nordberg <linus@nordberg.se> | 2014-11-04 12:45:39 +0100 |
| commit | 90754940d8d86c34d7a0039a6e798e22e43fdc81 (patch) | |
| tree | 3bec890e196a2ee23631cdfe7996503f55b54972 /src/plop.erl | |
| parent | bbcb238f5232fc29da7d4cb215d2316bd4421b8c (diff) | |
Invoke gen_server:call/2 via stacktrace:call/2.stacktrace
stacktrace:call() logs an error if the gen_server:call() throws timeout.
Diffstat (limited to 'src/plop.erl')
| -rw-r--r-- | src/plop.erl | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/src/plop.erl b/src/plop.erl index 0c85b21..d363582 100644 --- a/src/plop.erl +++ b/src/plop.erl @@ -35,6 +35,7 @@ -export([init/1, handle_call/3, terminate/2, handle_cast/2, handle_info/2, code_change/3]). +-import(stacktrace, [call/2]). -include("plop.hrl"). %%-include("db.hrl"). -include_lib("public_key/include/public_key.hrl"). @@ -71,7 +72,7 @@ start_link(Keyfile, Passphrase) -> gen_server:start_link({local, ?MODULE}, ?MODULE, [Keyfile, Passphrase], []). stop() -> - gen_server:call(?MODULE, stop). + call(?MODULE, stop). add_http_request(Plop, RequestId, Data) -> Plop#state{http_requests = dict:store(RequestId, Data, @@ -156,38 +157,38 @@ terminate(_Reason, _State) -> %%%%%%%%%%%%%%%%%%%% -spec add(binary(), binary(), binary()) -> ok. add(LogEntry, TreeLeafHash, EntryHash) -> - gen_server:call(?MODULE, + call(?MODULE, {add, {LogEntry, TreeLeafHash, EntryHash}}). sth() -> - gen_server:call(?MODULE, {sth, []}). + call(?MODULE, {sth, []}). -spec get(non_neg_integer(), non_neg_integer()) -> [{non_neg_integer(), binary(), binary()}]. get(Start, End) -> - gen_server:call(?MODULE, {get, {index, Start, End}}). + call(?MODULE, {get, {index, Start, End}}). get(Hash) -> - gen_server:call(?MODULE, {get, {hash, Hash}}). + call(?MODULE, {get, {hash, Hash}}). spt(Data) -> - gen_server:call(?MODULE, {spt, Data}). + call(?MODULE, {spt, Data}). consistency(TreeSizeFirst, TreeSizeSecond) -> - gen_server:call(?MODULE, {consistency, {TreeSizeFirst, TreeSizeSecond}}). + call(?MODULE, {consistency, {TreeSizeFirst, TreeSizeSecond}}). -spec inclusion(binary(), non_neg_integer()) -> {ok, {binary(), binary()}} | {notfound, string()}. inclusion(Hash, TreeSize) -> - gen_server:call(?MODULE, {inclusion, {Hash, TreeSize}}). + call(?MODULE, {inclusion, {Hash, TreeSize}}). -spec inclusion_and_entry(non_neg_integer(), non_neg_integer()) -> {ok, {binary(), binary()}} | {notfound, string()}. inclusion_and_entry(Index, TreeSize) -> - gen_server:call(?MODULE, {inclusion_and_entry, {Index, TreeSize}}). + call(?MODULE, {inclusion_and_entry, {Index, TreeSize}}). get_logid() -> - gen_server:call(?MODULE, {get, logid}). + call(?MODULE, {get, logid}). testing_get_pubkey() -> - gen_server:call(?MODULE, {test, pubkey}). + call(?MODULE, {test, pubkey}). storage_nodes() -> application:get_env(plop, storage_nodes, []). |