From 90754940d8d86c34d7a0039a6e798e22e43fdc81 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordberg.se>
Date: Tue, 4 Nov 2014 12:45:39 +0100
Subject: Invoke gen_server:call/2 via stacktrace:call/2.

stacktrace:call() logs an error if the gen_server:call() throws timeout.
---
 src/db.erl | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'src/db.erl')

diff --git a/src/db.erl b/src/db.erl
index 60c4d30..943c70e 100644
--- a/src/db.erl
+++ b/src/db.erl
@@ -14,6 +14,7 @@
 -export([init/1, handle_call/3, terminate/2, handle_cast/2, handle_info/2,
          code_change/3]).
 
+-import(stacktrace, [call/2]).
 -include_lib("stdlib/include/qlc.hrl").
 -include("db.hrl").
 
@@ -30,50 +31,50 @@ start_link() ->
     gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
 
 stop() ->
-    gen_server:call(?MODULE, stop).
+    call(?MODULE, stop).
 
 %%%%%%%%%%%%%%%%%%%%
 %% Public API.
 
 -spec add(binary(), binary(), binary(), non_neg_integer()) -> ok.
 add(LeafHash, EntryHash, Data, Index) ->
-    gen_server:call(?MODULE, {add, {LeafHash, EntryHash, Data, Index}}).
+    call(?MODULE, {add, {LeafHash, EntryHash, Data, Index}}).
 
 -spec add(binary(), binary()) -> ok.
 add(LeafHash, Data) ->
-    gen_server:call(?MODULE, {add, {LeafHash, Data}}).
+    call(?MODULE, {add, {LeafHash, Data}}).
 
 -spec add_entryhash(binary(), binary()) -> ok.
 add_entryhash(LeafHash, EntryHash) ->
-    gen_server:call(?MODULE, {add_entryhash, {LeafHash, EntryHash}}).
+    call(?MODULE, {add_entryhash, {LeafHash, EntryHash}}).
 
 -spec add_index(binary(), non_neg_integer()) -> ok.
 add_index(LeafHash, Index) ->
-    gen_server:call(?MODULE, {add_index, {LeafHash, Index}}).
+    call(?MODULE, {add_index, {LeafHash, Index}}).
 
 -spec set_treesize(non_neg_integer()) -> ok.
 set_treesize(Size) ->
-    gen_server:call(?MODULE, {set_treesize, Size}).
+    call(?MODULE, {set_treesize, Size}).
 
 -spec get_by_indices(integer(), integer(), {sorted, true|false}) ->
                             [{non_neg_integer(), binary(), binary()}].
 get_by_indices(Start, End, {sorted, Sorted}) ->
-    gen_server:call(?MODULE, {get_by_indices, {Start, End, Sorted}}).
+    call(?MODULE, {get_by_indices, {Start, End, Sorted}}).
 
 -spec get_by_index(binary()) -> notfound |
                                 {non_neg_integer(), binary(), binary()}.
 get_by_index(Index) ->
-    gen_server:call(?MODULE, {get_by_index, Index}).
+    call(?MODULE, {get_by_index, Index}).
 
 -spec get_by_leaf_hash(binary()) -> notfound |
                                     {non_neg_integer(), binary(), binary()}.
 get_by_leaf_hash(LeafHash) ->
-    gen_server:call(?MODULE, {get_by_leaf_hash, LeafHash}).
+    call(?MODULE, {get_by_leaf_hash, LeafHash}).
 
 -spec get_by_entry_hash(binary()) -> notfound |
                                      {non_neg_integer(), binary(), binary()}.
 get_by_entry_hash(EntryHash) ->
-    gen_server:call(?MODULE, {get_by_entry_hash, EntryHash}).
+    call(?MODULE, {get_by_entry_hash, EntryHash}).
 
 %%%%%%%%%%%%%%%%%%%%
 %% gen_server callbacks.
-- 
cgit v1.1