Update defaults

This commit is contained in:
Gregory Burd 2012-12-04 14:29:07 -05:00
parent 510b589edb
commit 264d189947

View file

@ -84,8 +84,8 @@ init([]) ->
handle_call({open, Dir, Config, Caller}, _From, #state{conn=undefined}=State) -> handle_call({open, Dir, Config, Caller}, _From, #state{conn=undefined}=State) ->
Opts = [{create, true}, Opts = [{create, true},
config_value(cache_size, Config, "100MB"), wterl:config_value(cache_size, Config, "512MB"),
config_value(session_max, Config, 100)], wterl:config_value(session_max, Config, 100)],
{Reply, NState} = case wterl:conn_open(Dir, wterl:config_to_bin(Opts)) of {Reply, NState} = case wterl:conn_open(Dir, wterl:config_to_bin(Opts)) of
{ok, ConnRef}=OK -> {ok, ConnRef}=OK ->
Monitor = erlang:monitor(process, Caller), Monitor = erlang:monitor(process, Caller),
@ -170,10 +170,6 @@ do_close(undefined) ->
do_close(ConnRef) -> do_close(ConnRef) ->
wterl:conn_close(ConnRef). wterl:conn_close(ConnRef).
%% @private
config_value(Key, Config, Default) ->
{Key, app_helper:get_prop_or_env(Key, Config, wterl, Default)}.
-ifdef(TEST). -ifdef(TEST).