diff options
author | Linus Nordberg <linus@nordu.net> | 2015-06-12 15:04:02 +0200 |
---|---|---|
committer | Linus Nordberg <linus@nordu.net> | 2015-06-12 15:25:52 +0200 |
commit | 97ad4becdbe302f120b598fb84d1bcfcc1a17576 (patch) | |
tree | c41e3a836098fdb7ebb1ef54e4b111dd6900bb06 /src/stacktrace.erl | |
parent | 4c31a6ff8cb1abd515d1c47d2c9fc7fb1430dfcc (diff) |
Allow ht:load_tree() 30 seconds to finish.
Default 5 seconds was not enough on a tree with around 5.2M entries.
Diffstat (limited to 'src/stacktrace.erl')
-rw-r--r-- | src/stacktrace.erl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/stacktrace.erl b/src/stacktrace.erl index 3de4772..39245e1 100644 --- a/src/stacktrace.erl +++ b/src/stacktrace.erl @@ -1,11 +1,14 @@ -%%% Copyright (c) 2014, NORDUnet A/S. +%%% Copyright (c) 2014-2015, NORDUnet A/S. %%% See LICENSE for licensing information. -module(stacktrace). --export([call/2]). +-export([call/2, call/3]). call(Name, Request) -> - Result = (catch gen_server:call(Name, Request)), + call(Name, Request, 5000). + +call(Name, Request, Timeout) -> + Result = (catch gen_server:call(Name, Request, Timeout)), case Result of {'EXIT', {timeout, Details}} -> {current_stacktrace, Stacktrace} = |