From 97ad4becdbe302f120b598fb84d1bcfcc1a17576 Mon Sep 17 00:00:00 2001
From: Linus Nordberg <linus@nordu.net>
Date: Fri, 12 Jun 2015 15:04:02 +0200
Subject: Allow ht:load_tree() 30 seconds to finish.

Default 5 seconds was not enough on a tree with around 5.2M entries.
---
 src/stacktrace.erl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/stacktrace.erl')

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} =
-- 
cgit v1.1