Browse Source

Use `ssl_opts` when trying to make `ssl` connection

Danila Fediashchin 8 years ago
parent
commit
d74ab908ef
1 changed files with 2 additions and 1 deletions
  1. 2 1
      src/epgsql_sock.erl

+ 2 - 1
src/epgsql_sock.erl

@@ -381,7 +381,8 @@ start_ssl(S, Flag, Opts, State) ->
     {ok, <<Code>>} = gen_tcp:recv(S, 1, Timeout),
     {ok, <<Code>>} = gen_tcp:recv(S, 1, Timeout),
     case Code of
     case Code of
         $S  ->
         $S  ->
-            case ssl:connect(S, Opts, Timeout) of
+            SslOpts = proplists:get_value(ssl_opts, Opts, []),
+            case ssl:connect(S, SslOpts, Timeout) of
                 {ok, S2}        -> State#state{mod = ssl, sock = S2};
                 {ok, S2}        -> State#state{mod = ssl, sock = S2};
                 {error, Reason} -> exit({ssl_negotiation_failed, Reason})
                 {error, Reason} -> exit({ssl_negotiation_failed, Reason})
             end;
             end;