[#22] adding timeout

inaka · Apr 11, 2017 · 6a314a6 · 6a314a6
1 parent eda6820
commit 6a314a6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/sheldon_suggestions_server.erl b/src/sheldon_suggestions_server.erl
@@ -37,7 +37,8 @@ suggestions(MisspelledWords, Lang) ->
 -spec add_suggestions(sheldon_result:misspelled_word(), sheldon_dictionary:language()) ->
   sheldon_result:misspelled_word().
 add_suggestions(#{word := Word} = MisspelledWord, Lang) ->
-  Candidates = wpool:call(suggestions_pool, {suggest, Word, Lang}),
+  Timeout = application:get_env(sheldon, suggestion_timeout, 15000),
+  Candidates = wpool:call(suggestions_pool, {suggest, Word, Lang}, available_worker, Timeout),
   MisspelledWord#{candidates => Candidates}.
 
 %%%=============================================================================

diff --git a/test/test.config b/test/test.config
@@ -1,7 +1,8 @@
 [
  {
    sheldon,
-   [ {suggestion_workers, 100}
+   [ {suggestion_workers, 100},
+     {suggestion_timeout, 10000}
    ]
  },
  {sasl, [{sasl_error_logger, false}]}