Sending values to value keepers made properly synchronous.
authorStanislaw Klekot <dozzie@jarowit.net>
Sun, 29 Oct 2017 17:18:56 +0000 (18:18 +0100)
committerStanislaw Klekot <dozzie@jarowit.net>
Sun, 29 Oct 2017 17:18:56 +0000 (18:18 +0100)
src/statip_keeper_related.erl
src/statip_keeper_unrelated.erl

index 53b3343..4fb5978 100644 (file)
@@ -83,7 +83,7 @@ restore(Pid, Values) ->
   ok.
 
 add(Pid, Value = #value{}) ->
-  gen_server:call(Pid, {add, Value}).
+  gen_server:call(Pid, {add, Value}, infinity).
 
 %% @doc Shutdown a keeper, effectively deleting all the keys.
 
@@ -107,7 +107,7 @@ delete(Pid, Key) ->
   [statip_value:key()].
 
 list_keys(Pid) ->
-  gen_server:call(Pid, list_keys).
+  gen_server:call(Pid, list_keys, infinity).
 
 %% @doc Retrieve all values remembered by the keeper.
 
@@ -115,7 +115,7 @@ list_keys(Pid) ->
   [#value{}].
 
 list_values(Pid) ->
-  gen_server:call(Pid, list_values).
+  gen_server:call(Pid, list_values, infinity).
 
 %% @doc Get a specific value from keeper.
 
@@ -123,7 +123,7 @@ list_values(Pid) ->
   #value{} | none.
 
 get_value(Pid, Key) ->
-  gen_server:call(Pid, {get_value, Key}).
+  gen_server:call(Pid, {get_value, Key}, infinity).
 
 %%%---------------------------------------------------------------------------
 %%% gen_server callbacks
index 2989a93..a5b8703 100644 (file)
@@ -80,7 +80,7 @@ restore(Pid, Values) ->
   ok.
 
 add(Pid, Value = #value{}) ->
-  gen_server:call(Pid, {add, Value}).
+  gen_server:call(Pid, {add, Value}, infinity).
 
 %% @doc Shutdown a keeper, effectively deleting all the keys.
 
@@ -104,7 +104,7 @@ delete(Pid, Key) ->
   [statip_value:key()].
 
 list_keys(Pid) ->
-  gen_server:call(Pid, list_keys).
+  gen_server:call(Pid, list_keys, infinity).
 
 %% @doc Retrieve all values remembered by the keeper.
 
@@ -112,7 +112,7 @@ list_keys(Pid) ->
   [#value{}].
 
 list_values(Pid) ->
-  gen_server:call(Pid, list_values).
+  gen_server:call(Pid, list_values, infinity).
 
 %% @doc Get a specific value from keeper.
 
@@ -120,7 +120,7 @@ list_values(Pid) ->
   #value{} | none.
 
 get_value(Pid, Key) ->
-  gen_server:call(Pid, {get_value, Key}).
+  gen_server:call(Pid, {get_value, Key}, infinity).
 
 %%%---------------------------------------------------------------------------
 %%% gen_server callbacks