aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssl
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2013-11-18 16:07:24 +0100
committerIngela Anderton Andin <[email protected]>2013-12-02 09:50:27 +0100
commitc46f856dda536d92537461115112b2021c08b52a (patch)
treea70f07fadd642b1afbef3195d4b222723217427a /lib/ssl
parentbae8fb577c0c3d2f5a3db31a34e584c8d7ccab6e (diff)
downloadotp-c46f856dda536d92537461115112b2021c08b52a.tar.gz
otp-c46f856dda536d92537461115112b2021c08b52a.tar.bz2
otp-c46f856dda536d92537461115112b2021c08b52a.zip
ssl: Dialyzer fixes
Diffstat (limited to 'lib/ssl')
-rw-r--r--lib/ssl/src/ssl_internal.hrl10
-rw-r--r--lib/ssl/src/tls_connection.erl7
2 files changed, 5 insertions, 12 deletions
diff --git a/lib/ssl/src/ssl_internal.hrl b/lib/ssl/src/ssl_internal.hrl
index 8e5662db31..0186f9fca2 100644
--- a/lib/ssl/src/ssl_internal.hrl
+++ b/lib/ssl/src/ssl_internal.hrl
@@ -82,15 +82,15 @@
%% fun(Extensions, State, Verify, AccError) -> {Extensions, State, AccError}
validate_extensions_fun,
depth :: integer(),
- certfile :: string(),
+ certfile :: binary(),
cert :: der_encoded(),
- keyfile :: string(),
- key :: der_encoded(),
+ keyfile :: binary(),
+ key :: {'RSAPrivateKey' | 'DSAPrivateKey' | 'ECPrivateKey' | 'PrivateKeyInfo', der_encoded()},
password :: string(),
cacerts :: [der_encoded()],
- cacertfile :: string(),
+ cacertfile :: binary(),
dh :: der_encoded(),
- dhfile :: string(),
+ dhfile :: binary(),
user_lookup_fun, % server option, fun to lookup the user
psk_identity :: binary(),
srp_identity, % client option {User, Password}
diff --git a/lib/ssl/src/tls_connection.erl b/lib/ssl/src/tls_connection.erl
index e4201504c0..c8380c109c 100644
--- a/lib/ssl/src/tls_connection.erl
+++ b/lib/ssl/src/tls_connection.erl
@@ -877,13 +877,6 @@ init_private_key(DbHandle, undefined, KeyFile, Password, _) ->
file_error(KeyFile, {keyfile, Reason})
end;
-%% First two clauses are for backwards compatibility
-init_private_key(_,{rsa, PrivateKey}, _, _,_) ->
- init_private_key('RSAPrivateKey', PrivateKey);
-init_private_key(_,{dsa, PrivateKey},_,_,_) ->
- init_private_key('DSAPrivateKey', PrivateKey);
-init_private_key(_,{ec, PrivateKey},_,_,_) ->
- init_private_key('ECPrivateKey', PrivateKey);
init_private_key(_,{Asn1Type, PrivateKey},_,_,_) ->
private_key(init_private_key(Asn1Type, PrivateKey)).